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INTRODUCTION 


The  TACWAR  theater-level  combat  simulation  model  was  developed  by 
the  Institute  for  Defense  Analysis  (IDA)  for  the  Department  of  Defense 
Studies  T^alysis  and  Gaming  Agency  (DoD-SAGA).  Presently,  TACWAR  is 
being  maintained  for  SAGA  by  the  Defense  Communications  Agency  Command 
and  Control  Technical  Center  (DCA-CCTC) • 

Since  TACWAR  does  allow  theater-level  combat  assessments,  it  is 
being  considered  as  a  prime  candidate  to  provide  results  to  the  "net 
assessment"  task  of  the  Army-sponsored  Theater  Nuclear  Forces  Surviva¬ 
bility  (TNF/S)  program.  A  broad-scoped  program,  TNF/S  encompasses  a 
number  of  major  task  ( and  subtask)  areas  including  target  acquisition ; 
nuclear- chemical -conventional  kill;  logistics;  combat  degradation; 
unconventional  warfare;  electronic  warfare;  and  command,  control,  and 
communications  degradation  (C^/D). 

Each  of  these  major  areas  of  analysis  is  controlled  by  a  designated 
"lead  element"  who  is  responsible  for  coordinating  and  assessing  that 
portion  of  the  overall  program.  The  author  is  a  member  of  a  team  of  the 
Electronics  Research  and  Development  Command;  Harry  Diamond  Laboratories 
(ERADCOM-HDL )  that  is  assisting  the  Combined  Arms  Combat  Development 
Activity  (CACDA),  the  designated  lead  element  for  C^/D. 

A  thorough  analysis  of  TACWAR  revealed  that  very  little  C^  is 
modeled  explicitly.  Consequently,  it  was  decided  that  those  areas 
within  TACWAR  that  are  of  major  interest  and  importance  to  TNF/S-C^/D 
will  be  modified  to  include  C^/D  effects.  This  report  describes  those 
modification  efforts,  including  the  rationale  for  the  modifications,  the 
methodology  employed,  and  the  explicit  FORTRAN  code  changes  that  have 
been  implemented.  Initial  data  values  and  the  results  of  some  sample 
runs  also  are  provided. 


2.  SUMMARY  OF  TACWAR 

In  its  broadest  categories  of  simulation,  TACWAR  can  be  divided  into 
five  major  areas  of  combat  or  control:^ 

Air  combat 
Nuclear  combat 
Chemical  combat 

Ground  ( with  air-ground  interaction)  combat 
Theater  control 


^Institute  for  Defense  Analysis  Tactical  Warfare  (TACWAR)  Model, 
Defense  Communications  Agency  CCTC  Computer  System  Manual  CSM  MM  237-77 , 
Parts  I,  II,  III  (6  September  1977). 
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Each  of  these  areas  was  analyzed  to  determine  if  C^/D  effects  could  be 
readily  incorporated  into  the  simulation.  The  analysis  is  summarized  in 
the  following  paragraphs. 

2.1  Air  Combat  Simulation 


In  TACWAR,  aircraft,  aircraft  shelters,  and  personnel  are 
stationed  at  specific  airbases.  These  airbase  assets  are  consolidated 
within  specified  geographical  "regions"  of  the  theater  to  establish  a 
"notional"  or  average  airbase.  For  each  of  these  . notional  airbases, 
aircraft  are  allocated  to  specific  missions,  including  close  air  support 
(CAS),  interdiction,  and  airbase  attack.  The  number  of  aircraft 
available  for  these  missions  is  a  function  of  the  operating  capability 
of  the  actual  airbases  and  will  depend  on  C^/D. 

As  a  first  order  effect,  the  dependence  of'  airbase  operating 
capability  on  C^/D  can  be  accounted  for  by  the  degradation  function 
currently  available  in  TACWAR.  Other  C^/D  effects  in  the  air  model  such 
as  air-to-air  coordination  and  CAS  communications  are  secondary  TNF/S 
considerations.  Consequently,  no  changes  in  the  air  combat  model  are 
made  to  include  C^/D  explicitly. 

2.2  Nuclear  Combat  Model 


The  nuclear  model  in  TACWAR  includes  an  escalation  process,  a 
prioritized  weapons  assignment  list,  target  acquisition,  a  prioritized 
target  assignment  list ,  a  weapon- to- target  selection  process ,  and  a 
target  damage  evaluation  process.  Important  C^/D  effects  in  this  model 
include  (  1  )  delays  in  nuclear  escalation  and  in  target  acquisition 
processing  due  to  degraded  C^  and  (2)  lower  effectiveness  of  nuclear 
delivery  means.  Delays  in  nuclear  escalation  and  in  target  acquisition 
can  be  incorporated  into  TACWAR  by  providing  an  explicit  functional 
dependence  of  the  delay  time  with  degradation  of  C^  assets  within  the 
several  areas  (echelons)  of  control  such  as  division,  corps- sector ,  and 
theater  delivery  systems.  Similarly,  nuclear  delivery  system 

effectiveness  (availability)  can  be  described  as  a  function  of  C^/D. 

2.3  Chemical  Combat  Model 


The  chemical  model  in  TACWAR  has  essentially  a  one-to-one 
correspondence  with  the  nuclear  model.  Consequently,  those  C^/D  aspects 
described  above  for  the  nuclear  model  have  a  parallel  aspect  for  the 
chemical  model. 

2.4  Ground  Combat  Model 


Ground  combat  in  TACWAR  is  simulated  on  a  division-level 
resolution.  Personnel  and  weapon  system  attrition  and  subsequent 
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movement  of  the  forward  edge  of  the  battle  area  (FEBA)  are  determined  as 
functions  of  the  effectiveness  of  the  divisions  of  the  two  combatant 
sides*  Any  C^/D  within  the  divisions  will  affect  this  combat 
effectiveness/  which  will  then  affect  the  attrition  and  FEBA  movement* 
The  amount  by  which  C^/D  influences  overall  ccanbat  effectiveness  of  a 
division  can  be  provided  by  an  explicit  functional  relationship* 

2*5  Theater  Control  Model 

In  TACWAR/  theater  control  includes  division  and  airbase 
resupply/  reinforcement/  replacement/  and  reallocation*  As  in  the 
ground  combat  model  above/  reinforcement  and  replacement  for  divisions 
are  functions  of  division  combat  effectiveness/  which  is  itself 
influenced  by  C^/D*  Division  resupply  and  reallocation  (movement)/ 
although  strongly  dependent  on  C^/D/  have  not  been  modified* 
Specifically/  the  gross  nature  in  which  TACWAR  simulates  the  movement  of 
entire  divisions  (and  has  no  capability  of  modeling  movement  of  division 
subunits)  is  not  cimendable  to  a  C^/D  augmentation*  As  with  the  air 
combat  model/  no  C^/D  augmentation  of  airbase  resupply  and  reallocation 
was  attempted  within  theater  control* 


3*  DETAILS  OF  C^/D  MODIFICATIONS  TO  TACWAR 

The  following  four  major  areas  of  TACWAR  have  been  augmented  to 
include  C^/D  effects: 

Division  combat  effectiveness 

Nuclear  delivery  system  availability 

Nuclear  escalation  state  authorization  delay 

Nuclear  and  chemical  target  acquisition  processing  delay 

In  each  candidate  area  for  C^/D  augmentation  to  TACWAR/  it  is 
necessary  to  specify  C^  equipment  or  processes  that  are  attrited  or 
degraded*  If  these  C^  assets  were  to  be  modeled  explicitly  in  TACWAR/ 
it  would  be  necessary  also  to  specify  and  to  explictly  model  the  combat 
by  and  against  these  assets*  In  particular/  the  augmentation  would  have 
to  include  target  acquisition/  weapon  ‘  resource  allocation/  damage 
analysis/  repair-/  and  reconstitution  of  the  C^  assets* 

The  modeling  effort  necessary  to  include  the  above  effects  is  beyond 
the  scope  of  the  present  work*  Consequently/  C^  assets  are  not 
explicitly  included  in  the  C^/D  augmentation*  Instead/  other  combat 
assets  that  are  already  incorporated  in  TACWAR  are  employed  as 
surrogates  for  C^  assets*  For  example/  the  surrogates  for  C^  assets 
within  a  division  will  be  the  different  weapons  systems  of  that 
division*  For  a  corps-sector  echelon  and  theater  echelon/  the 
surrogates  will  be  a  mix  of  airbase  assets/  surface-to-surface  missile 
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(SSM)  sites,  and  surface-to-air  missile  (SAM)  sites.  These  surrogates 
will  be  modified  by  appropriate  weighting  factors  in  the  augmentations 
to  realistically  reflect  the  actual  mix  of  assets  at  the  several 
echelons. 

Each  of  the  areas  of  C^/D  augmentation  is  described  in  the  following 
sections.  The  actual  FORTRAN  code  changes  and  augmentations  are  in 
appendix  A  and  are  discussed  as  part  of  the  details  below.  With  this 
description  and  appendix  A,  the  interested  reader  with  a  minimum  of 
effort  may  include  C^/D  effects  into  a  local  version  of  TACWAR. 

3.1  Division  Combat  Effectiveness  Augmentation 

In  TACWAR,  each  combat  division  is  currently  described  by 
effectiveness  parameters  such  as  EFFDD(ID)  and  EFFDA(ID),  where  ID  is 
the  division  identifier  index.  These  parameters  depend  on  degradation 
of  weapons  systems  and  personnel  in  the  division  (compared  with  levels 
given  by  tables  of  organization  and  equipment — TOE),  the  current 
supplies  available  to  the  division,  and  the  current  chemical  posture  of 
the  division. 

For  C^/D  augmentation,  the  division  combat  effectiveness 
parameters  are  modified  by  a  C^/D  multiplying  factor.  This  multiplying 
factor  is  itself  determined  by  a  functional  relationship  between 
decreased  combat  effectiveness  due  to  C^/D  and  decreased  division 
communications  (message  throughput)  capabi^lity.  Similarly,  this 
decreased  division  communications  capability  is  determined  by  a 
functional  relationship  between  itself  and  a  decrease  of  assets 

o 

within  the  division.  Lastly,  the  decrease  in  assets  is  to  be 
determined  by  using  the  degradation  of  surrogate  division  assets  already 
modeled,  these  assets  being  the  several  weapons  systems  belonging  to  the 
division. 


The  general  flow  of  logic  beginning  with  degradation  of 
division  weapons  systems  and  resulting  in  a  division  combat 
effectiveness  C^/D  reduction  factor  is  shown  in  figure  1.  The  actual 
changes  to  the  TACWAR  code  are  shown  in  appendix  A  and  are  discussed 
below. 
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Figure  1*  Logic  flow  algorithm  for 
degradation  of  division 
effectiveness • 


Seven  new  array  variables  are  needed  to  hold  the  user  input 
functional  relationships  and  surrogate  asset  weighting  factors.  These 
array  variables  are  consolidated  into  a  common  block  labeled  TNFSC3. 


NC3DD(L)  contains  the  number  of  function  pairs  XC3DD  and 

L  =  1  to  2  YC3DD  that  describe  the  fxinctional  relationship 

between  the  division  combat  effectiveness 
C^/D  reduction  factor  and  the  decreased  division 
communications  capability  for  each  combatant 
side  indexed  L. 


XC3DD(I,L)  contains  the  Ith  abscissa  point  for  the  function 

I  =  1  to  8  associated  with  NC3DD (L) •  The  abscissae  are 

L  =  1  to  2  fractions  of  the  division  communications 

capability  remaining  (0.0  corresponding  to  zero 
capability  and  1.0  corresponding  to  full 
capability) . 
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YC3DD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NCOMD(L) 

L  =  1  to  2 


XCOMD( I,L) 

I  =  1  to  8 
L  =  1  to  2 


YCQMD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


FCLWL(IW,L) 

IW  =  1  to  10 
L  =  1  to  2 


contains  the  Ith  ordinate  point  for  the 
function  associated  with  NC3DD(L) .  The 
ordinates  are  fractional  reductions  of  division 
combat  effectiveness  due  to  C^/D. 

contains  the  number  of  function  pairs  XCOMD  and 
YCOMD  that  describe  the  functional  relationship 
between  decreased  division  communications 
capability  and  the  degradation  of  division 
assets  for  each  combatant  side  indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  NCOMD(L) •  The  abscissae  are 
fractions  of  division  assets  remaining  (0.0 
corresponding  to  zero  assets  and  1 • 0  corre¬ 
sponding  to  full  assets). 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NCOMD(L).  The  ordinates  are 
fractions  of  division  communications  capability 
remaining  (identical  to  XC3DD) • 

contains  the  weighting  factors  to  correlate  the 
division  surrogate  weapon  system  indexed  IW  to 
an  ecjuivalent  division  asset.  Note:  Within 
the  C^/D  modifications  to  TACWAR,  the  variables 
FCLWL  are  normalized  so  that  the  full  TOE  level 
of  weapons  systems  in  the  division  corresponds 
to  full  assets •  The  division  assets 
calculated  by  using  variable  FCLWL  are  used  not 
only  by  the  division  effectiveness  augmentation, 
but  also  by  the  nuclear  delivery  system  avail¬ 
ability  augmentation  and  the  target  accjuisition 

. processing  delay  time  augmentation  described  in 
later  sections. 


The  following  subroutines  calculate  or  vise  division  combat  effectiveness 
parameters  EFFDD(ID)  and  EFFDA(ID): 

GC  within  DO  loop  2525 

FEBAMT  within  DO  loop  520 

TC  within  DO  loop  4520  and  DO  loop  9020 

TIMET  following  CONTINUE  820 

The  explicit  code  changes  in  these  subroutines  to  incorporate  the 
division  effectiveness  factor  due  to  C^/D  are  given  in  appendix  A. 
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3 • 2  Nuclear  Delivery  System  Availability  Augmentation 


In  the  TACWAR  nuclear  model,  the  nuclear  delivery  systems 
available  for  each  combatant  side  are  assembled  into  three  major 
echelons  associated  with  command  control:  division,  corps-sector,  and 

theater  delivery  systems.  A  count  is  kept  of  the  number  of  delivery 
systems  available  at  each  echelon  for  each  side.  This  count  of 
availability  is  modified  by  a  C Vd  reduction  factor  that  reflects  the 
decrease  in  availability  due  to  a  failure  to  complete  special  nuclear 
authorization  and  release  (A/R)  messages.  The  C^/D  reduction  factor  is 
determined  from  a  functional  relationship  between  the  loss  of  special 
A/R  messages  and  the  degradation  of  assets  within  each  command 

control  echelon. 

The  degradation  of  assets  is  to  be  determined  by  using  a 
weighted  degradation  of  surrogate  assets  already  modeled  within  TACWAR 
and  associated  with  each  of  the  three  echelons.  Specifically,  the 
following  assets  will  be  used  as  surrogates  for  assets  at  the 

different  echelons: 

Division 

Division  weapons  systems  (using  the  same  technique  as  that 
described  in  the  previous  section  for  division  combat  effectiveness) 

Corps-sector 

Forward  sector  airbase  assets 

Belt  SAM  sites 

Forward  sector  medium-range  SSM  sites 

Forward  sector  long-range  SSM  sites 

Theater 


Rear  sector  airbase  assets 

Communication  zone  (COMMZ)  airbase  assets 

Rear  region  long-range  SAM  sites 

COMMZ  long-range  SAM  sites 

Rear  sector  long-range  SSM  sites 

As  these  assets  are  degraded  at  the  several  echelons,  a  weighted 
proportion  is  assumed  to  correspond  to  the  degradation  of  C^  assets 
within  the  same  echelon.  The  general  flow  of  logic  beginning  with  the 
degradation  of  explicitly  modeled  echelon  assets  and  resulting  in  the 
cVd  factor  for  the  availability  of  nuclear  delivery  systems  at  that 
echelon  is  shown  in  figure  2. 
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Figure  2.  Logic  flow  algorithm  for 

degradation  of  nuclear  delivery 
system  availability. 


The  changes  necessary  in  TACWAR  to  include  the  degradation  of 
nuclear  delivery  system  availability  as  a  result  of  C^/D  are  given  in 
appendix  A  and  are  discussed  below. 

Twenty-one  new  array  variables  are  required  to  hold  the  user 
input  functional  relationships,  the  surrogate  asset  weighting  factors, 
the  initial  numbers  of  explicitly  modeled  echelon  assets,  and  the 
nuclear  delivery  system  degradation  factors.  The  array  variables  are 
consolidated  in  two  common  blocks  labeled  TNFSC1  and  TNFSC2 . 

INABF(IS,L)  contains  the  initial  number  of  forward  area 
IS  =  1  to  8  airbases  in  sector  indexed  IS  for  combatant  side 

L  =  1  to  2  indexed  L. 
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INABR(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

INABZ(L) 

L  =  1  to  2 

NC3SD(L) 

L  =  1  to  2 


XC3SD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YC3SD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


FDDSAD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FSDSAD( IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FTDSAD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FABDCC(L) 

L  =  1  to  2 


ABSFCC(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  initial  number  of  rear  area  airbases 
in  sector  indexed  IS  for  side  indexed  L. 


contains  the  initial  number  of  COMMZ  airbases  for 
side  indexed  L. 

contains  the  number  of  function  pairs  XC3SD  and 
YC3SD  that  describe  the  functional  relationship 
between  the  fractional  degradation  of  nuclear 
delivery  system  availability  and  the  degradation 
of  assets  at  each  echelon  for  combatant  side 
indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  NC3SD(L).  The  abscissae  are 
fractions  of  assets  remaining  in  a  particular 
echelon* 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NC3SD(L) .  The  ordinates  are 
fractional  reductions  in  nuclear  delivery  system 
availability  at  a  particular  echelon. 

contains  the  current  C^/D  fractional  reduction  in 
the  nuclear  delivery  system  availability  for  the 
division  echelon  in  sector  IS  for  side  L* 

contains  the  current  C^/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
corps-sector  echelon  in  sector  IS  for  side  L. 

contains  the  current  C^/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
theater  echelon  in  sector  IS  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  assets  with 
surrogate  airbase  assets  located  within  the  two 
respective  echelons  for  side  L* 

contains  the  fractional  asset  degradation  of  a 
notional  (average)  airbase  in  the  forward  area 
of  sector  IS  for  side  L* 
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ABSRCC(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

ABCZCC(L) 

L  =  1  to  2 

FSSMCC(L) 

L  =  1  to  2 


TSSMIR(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIM(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIL(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


FSAMCC(L) 

L  =  1  to  2 


TSAMIR( IR,L) 
IR  =  1  to  3 
L  =  1  to  2 


TSAMIZ(L) 

L  =  1  to  2 


contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  rear  area  of  sector  IS 
for  side  L. 

contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  COMMZ  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  assets  with 
surrogate  SSM  sites  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  initial  number  of  theater  echelon 
long-range  SSM  sites  located  in  the  rear  area  of 
sector  IS  for  side  L.  TSSMIR  is  set  to  the 
initial  value  of  the  variable  SSMSRS ( IS,L‘) 
already  incorporated  in  TACWAR. 

contains  the  initial  number  of  corps- sector 
echelon  medium-range  SSM  sites  in  the  forward 
area  of  sector  IS  for  side  L*  SSSMIM  is  set  to 
the  initial  value  of  the  variable  SSMSFS 
(1,IS,L)  already  incorporated  in  TACWAR* 

contains  the  initial  number  of  corps-sector 
echelon  long-range  SSM  sites  in  the  forward  area 
of  sector  IS  for  side  L.  SSSMIL  is  set  to  the 
initial  value  of  the  variable  SSMSFS  (2,1S,L) 
already  incorporated  in  TACWAR* 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  C^  assets  with 
surrogate  SAM  sites  located  within  the  two 
respective  echelons  for  side  L* 

contains  the  initial  nximber  of  theater  echelon 
long-range  SAM  sites  in  the  rear  area  of  region 
IR  for  side  L*  TSAMIR  is  set  to  the  initial 
value  of  the  variable  ALRSR( 1 / IR/L)  already 
incorporated  in  TACWAR* 

contains  the  initial  number  of  theater  echelon 
long-range  SAM  sites  in  the  COMMZ  for  side  L* 
TSAMIZ  is  set  to  the  initial  value  of  variable 
ALRSZ(1,L)  already  incorporated  in  TACWAR* 
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SSAMIF(IR,L) 
IR  =  1  to  3 
L  =  1  to  2 


contains  the  initial  nximber  of  corps-sector 
echelon  belt  SAM  sites  in  the  forward  area  of 
region  IR  for  side  L*  SSAMIF  is  set  to  the 
initial  value  of  variable  BMRS(1/IR/L)  already 
incorporated  in  TACWAR. 


In  addition  to  the  new  array  variables  described  above/  two  new 
subroutines  have  been  created  as  part  of  the  C^/D  augmentation  of 
nuclear  delivery  system  availability*  These  two  subroutines/  named 
DSDEG  and  NUCCCD/  are  given  in  appendix  A  and  are  briefly  described 
below* 


Subroutine  DSDEG  calculates  the  fractional  decrease  in  the 
availability  of  nuclear  delivery  systems  controlled  by  the  three 
echelons  for  each  sector  IS  and  for  each  side  L*  These  fractional 
values  are  stored  in  variables  FTDSAD/  FSDSAD/  and  FDDSAD  for  later  use 
by  subroutine  NWHINV*  The  calculations  are  performed  by  using  the 
following  algorithm: 

•  Determine  the  SAM  region  IR  associated  with  sector  IS* 

•  Adjust  the  surrogate  weighting  factors  for  airbase  assets  as 

required* 


•  Determine  the  fractional  equipment  degradation  from  the 
weighted  fractional  degradation  of  the  surrogate  at  each  echelon* 

•  Determine  the  fractional  degradation  of  the  nuclear  delivery 
system  availability  at  each  echelon  from  the  functional  relationship 
between  the  decrease  in  availability  and  the  degradation  of  the  echelon 

assets* 

In  addition,  subroutine  DSDEG  holds  the  calculated  corps-sector  and 
theater  asset  degradation  for  use  in  the  nuclear  escalation  state 
authorization  delay  and  target  acquisition  processing  delay  augmen¬ 
tations  described  in  later  sections* 

One  special  procedure  in  DSDEG  should  be  noted  on  the 
calculation  for  the  division  echelon  assets*  The  total  degradation 
of  assets  for  this  echelon  is  taken  as  the  geometric  mean  of  both  the 
corps- sec tor  and  the  division  degradation*  This  procedure  more 
realistically  simulates  the  corps-to-division  measures  actually  used* 

Subroutine  NUCCCD  determines  the  current  values  of  the  airbase 
assets  for  forward  area,  rear  area ,  and  COMMZ  notional  airbases  for  each 
sector  IS  and  for  each  side  L*  These  airbase  assets  are  stored  in  array 
variables  ABSFCC/  ABRSCC,  and  ABCZCC,  respectively*  They  are  calculated 
from  the  current  values  of  the  operation  capability  CX^NUC(IAB)  of  the 
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actual  airbases  comprising  the  notional,  where  lAB  is  the  index 
identifying  the  actual  airbase. 

Much  of  the  code  for  subroutine  NUCCCD  is  extracted  from 
subroutine  DEG  (already  a  part  of  TACWAR)  that  performed  a  similar 
function  using  variable  OCNUC(IAB).  Moreover,  to  correctly  determine 
the  operating  capability  of  each  actual  airbase,  the  variable  OCNUC  is 
now  computed  in  subroutine  DAMEVL.  Subroutine  NUCCCD  also  performs  the 
task  of  initializing  the  variables  INABF,  INABR,  and  INABZ. 

Subroutines  DSDEG  and  NUCCCD  are  called  once  every  nuclear  or 
chemical  subcycle  from  subroutine  TMAIN.  The  results  from  DSDEG  are 
used  in  subroutine  NWHINV  to  make  the  actual  modifications  to  the 
nuclear  delivery  system  availability  variables  due  to  C^/D. 

3 • 3  Nuclear  Escalation  State  Authorization  Delay  Augmentation 

Presently  in  TACWAR,  depending  on  the  current  tactical  status, 
immediate  escalation  to  a  combat  state  may  occur  in  which  nuclear  and 
chemical  weapons  can  be  used.  This  ability  to  escalate  instantaneously 
is  typically  not  a  faithful  nuclear  combat  simulation  since  it  precludes 
the  proper  authorization  by  high-level  authorities  for  each  combatant 
side.  Consequently,  TACWAR  has  been  modified  to  simulate  the  nuclear 
request  and  authorization  procedures  as  a  processing  and  decision-making 
delay  time  between  the  time  that  a  nuclear  escalation  state  is  desired 
within  a  sector  (as  a  function  of  the  current  tactical  status  of  that 
sector)  and  the  time  that  the  escalation  can,  in  fact,  occur.  This 
processing  delay  time  is  a  function  of  C^/D  occurring  for  each  side, 
especially  in  the  theater  and  corps-sector  echelons  of  the  battlefield. 

The  changes  necessary  in  TACWAR  to  include  the  nuclear 
escalation  processing  delay  as  a  result  of  C^/D  are  given  in  appendix  A 
and  are  discussed  below. 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships,  the  theater  and  corps-sector  assets,  and 
the  escalation  state  processing  flags.  These  array  variables  are 
consolidated  in  a  common  block  labeled  TNFSC4. 

NEDLY(L)  contains  the  number  of  function  pairs  XEDLY 

L  =  1  to  2  and  YEDLY  that  describe  the  functional 

relationship  between  the  fractional 
degradation  of  assets  in  the  theater  and 
corps-sector  echelons  and  the  processing 
delay  time  for  nuclear  escalation  for 
combatant  side  L. 
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XEDLY(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YEDLY(I,IF,L) 
I  =  1  to  8 
IF  =  1  to  2 
L  =  1  to  2 


JESC(IS,ITC,L) 
IS  =  1  to  8 
ITC  =  1  to  3 
L  =  1  to  2 


IWAUT(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

IFPLS(IS,L) 
IS  =  1  to  3 
L  =  1  to  2 

TEQPD(L) 

L  =  1  to  2 


SEQPD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  Ith  abscissa  point  for  the 
function  asociated  with  NEDLY(L).  The 
abscissae  are  fractions  of  equipment 
assets  remaining  in  a  theater  or  corps-sector 
echelon  for  side  L. 

contains  the  Ith  ordinate  point  for  two 
functions  (IF  =  1  and  IF  =  2)  associated  with 
NEDLY(L).  The  ordinate  is  nuclear  A/R 
processing  times  (in  hours)  for  each  side 
L.  The  function  corresponding  to  IF  =  1 
describes  the  delay  time  associated  with  the 
first  A/R  cycle  for  each  side  L  and  typically 
reflects  the  enhanced  decision-making  delay 
for  first  use  of  nuclear  weapons •  The 
function  corresponding  to  IF  =  2  describes 
the  delay  time  associated  with  all  A/R  cycles 
following  the  first. 

contains  the  desired  escalation  state  for  side 
L  within  sector  IS  against  target  category 
ITC.  This  variable  will  reflect  the  nuclear 
escalation  state  to  which  side  L  will  advance 
following  the  completion  of  the  required 
processing  delay. 

contains  the  control  flags  that  are  set 
whenever  side  L  within  sector  IS  is  waiting 
for  nuclear  release  authorization • 

contains  the  control  flags  that  are  set 
following  the  first  authorization  to  a 
nuclear  state  by  side  L  in  sector  IS. 

contains  the  current  fractional  decrease  in 
theater  assets  for  side  L.  These 
variables  are  determined  from  the 
identical  surrogate  theater  assets  described 
in  section  3.2  for  the  degradation  of  nuclear 
delivery  system  availability. 

contains  the  current  fractional  decrease  of 
corps-sector  assets  within  sector  IS  for 
side  L.  These  variables  are  determined  from 
identical  surrogate  corps-sector  assets  used 
for  the  degradation  of  nuclear  delivery 
system  availability. 
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contains  the  current  waiting  time  (in  hours) 
following  the  onset  of  a  nuclear  escalation 
request  by  side  L  in  sector  IS.  This  time  is 
updated  every  nuclear  or  chemical  sxibcycle 
until  the  appropriate  delay  has  been 
achieved. 

In  addition  to  the  nine  new  array  variables,  one  new 
sxibroutine,  ncimed  EDELAY,  has  been  created  as  part  of  the  augmentation 
to  delay  the  nuclear  escalation  process.  EDELAY  is  given  in  appendix  A 
and  is  briefly  described  below. 

EDELAY  uses  the  above  array  variables  to  calculate  and  update  a 
processing  delay  time  and  the  current  waiting  time  before  a  desired 
nuclear  escalation  state  can  be  realized  by  each  side  in  each  combat 
sector  IS.  EDELAY  uses  an  algorithm  shown  in  the  flow  diagram  in  figure 
3.  Specifically,  for  each  side  and  for  each  sector, 

•  Calculate  the  fractional  equipment  assets  (associated  with 
nuclear  A/R)  degraded  in  each  sector.  These  assets  correspond  to  the 
geometric  mean  of  the  theater  and  corps-sector  echelon  assets  since 
the  authorization  process  occurs  through  a  theater  to  corps-sector  chain 
of  command. 


CTIME(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


•  Determine  the  desired  escalation  state. 

•  If  not  already  waiting,  reset  the  waiting  time  and  set  the 
waiting  flag. 

•  Determine  the  current  delay  time  as  a  function  of  C^/D. 

•  Update  the  current  waiting  time. 

•  If  the  waiting  period  is  complete,  set  the  current  escalation 
state  to  the  desired  state,  reset  the  waiting  flag,  and  reset  the 
desired  escalation  state. 

EDELAY  is  called  from  subroutine  NUC1  immediately  following  the  call  to 
ESCLAT. 


3.4  Nuclear  or  Chemical  Target  Acquisition  Processing  Delay 

Presently  in  TACWAR  the  target  acquisition  (TA)  model  provides 
for  the  acquisition  by  each  combatant  side  against  active  and  reserve 
division  sxibunit  targets  of  the  opposite  side.  Using  ground  sensor, 
army-air  sensor,  and  air  force  sensor  assets,  the  following  three 
quantities  are  determined  against  each  target  type; 
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Total  probability  of  detection  by  all  available  TA  assets 
Root-mean-square  TA  error 

Weighted  average  processing  time  for  TA  information 


The  first  two  quantities  are  primarily  functions  of  the  number  and 
operating  characteristics  of  the  TA  sensors  and  are  negligibly 
influenced  by  cVd.  However,  the  third  quantity,  TA  processing  time,  is 
greatly  influenced  by  cVd*  Consequently,  TACWAR  is  augmented  to 
include  the  increase  in  TA  processing  time  due  to  the  degradation  of 
assets  within  the  area  where  the  TA  sensors  are  controlled.  This 
additional  processing  time  is  then  added  to  the  nominal  processing  time 
(already  a  part  of  TACWAR)  to  give  a  total  processing  time  for  the  TA 
information  against  each  target  type . 


AT  EACH  NUCLEAR  SUBCYCLE  (2  HR) 
FOR  EACH  SIDE 
FOR  EACH  SECTOR 


PREEMPTIVE  STRIKE 


Figure  3.  Logic  flow  diagram  of  C^  degradation  of 
nuclear  escalation  process. 


In  TACWAR,  the  TA  processing  time  currently  calculated  is  not 
effectively  used  by  the  other  subroutines  of  TACWAR*  In  particular,  the 
TA  processing  time  becomes  an  important  quantity  in  the  overall  combat 
simulation  when  the  simulation  also  includes  movement  of  the  targets* 
Thus,  if  TA  processing  is  excessively  long  against  an  acquired  target, 
then  that  potential  target  may  move  to  another  location  before  being 
attacked  by  nuclear  or  chemical  munitions*  The  effects  of  subsequent 
nuclear  or  chemical  strikes  would  then  be  partially  or  completely 
negated*  Since  TACWAR  presently  has  no  simulation  of  the  movement  of 
subunit  targets  and  does  not  use  the  TA  processing  times  against  these 
subunit  targets,  the  effects  of  C^/D,  especially  as  they  modify  TA 
prpcessing  times,  will  have  minimal  impact  on  the  outcome  of  the  combat 
simulation*  Consequently,  it  is  recommended  that  TACWAR  be  modified  to 
include  the  necessary  target  subunit  movement  capability*  However,  such 
a  modification  would  be  outside  the  scope  of  this  work* 

The  changes  necessary  in  TACWAR  to  include  the  nuclear  or 
chemical  TA  processing  delay  as  a  result  of  C^/D  are  given  in  appendix  A 
and  are  described  below* 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships  between  C^  equipment  degradation  and  increased 
TA  processing  times*  These  array  variables  are  consolidated  in  a  common 
block  labeled  TNFSC5* 


NGSFD(L) 

L  =  1  to  2 


XGSFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


contains  the  number  of  function  pairs  XGSFD 
and  YGSFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  division  ground  sensors 
and  the  degradation  of  division  C^  assets  for 
side  L* 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NGSFD(L) *  The 
abscissae  are  fractions  of  C^  assets 
remaining  in  a  division* 


YGSFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NAAFD(L) 

L  =  1  to  2 


contains  the  Ith  ordinate  point  for  the 
function  associated  with  NGSFD(L) *  The 
ordinates  are  increased  TA  processing  timeS' 
(in  hours)  for  the  division  ground  sensors 
for  side  L* 

contains  the  number  of  function  pairs  XAAFD 
and  YAAFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  army-air  sensors  and  the 
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I 


XAAFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YAAFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NAFFD(L) 

L  =  1  to  2 


XAFFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YAFFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


degradation  of  forward  corps-sector  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAAFD(L) .  The 
abscissae  are  fractions  of  assets 
remaining  in  the  forward  corps- sector  of  side 

L. 

contains  the  Ith  ordinate  point  for  the 
function  associated  with  NAAFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  anay-air  sensors  for  side  L. 

contains  the  number  of  function  pairs  XAFFD 
and  YAFFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  air  force  sensors  and  the 
degradation  in  the  forward  region  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAFFD(L) •  The 
abscissae  are  fractions  of  assets 
remaining  in  the  forward  region  of  side  L  ( as 
determined  by  the  average  of  the  fractional 
assets  remaining  in  the  corps-sectors  that 
comprise  the  region) • 

contains  the  Ith  ordinate  point  of  the 
function  associated  with  NAFFD(L) •  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  air  force  sensors  for  side  L* 


The  three  functional  relationships  given  above  describe  the  influence  of 
C^/D  on  TA  processing  times  for  each  of  the  three  types  of  TA  assets — 
ground,  army-air,  and  air  force,  respectively*  The  degradation  of 
assets  within  each  of  the  three  areas  that  control  these  different  TA 
assets  is  calculated  *  in  a  manner  identical  for  that  of  the  earlier 
sections*  Specifically,  the  degradation  of  divisional  assets  that 

control  the  ground  sensors  is  determined  from  surrogate  weapons  systems 
assets  as  described  in  section  3.1*  Similarly,  the  degradation  of 
assets  that  control  army-air  sensors  in  corps-sector  IS  =  1  to  8  is 
contained  in  the  array  variable  SEQPD  described  in  section  3*3*  The 
degradation  of  assets  that  control  air  force  sensors  in  regions  IR  = 
1  to  3  is  determined  as  an  average  of  the  asset  degradations  (SEQPD) 
for  all  corps-sectors  comprising  the  regions* 
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In  sections  in  subroutines  TADPAR  and  TARACA  (already  a  part 
of  TACWAR)  ,  the  above  functions  are  used  and  the  increase  in  TA 
processing  times  is  calculated  (app  A). 

3.5  Ancillary  Modifications  to  TACWAR 


In  addition  to  the  modifications  described  in  sections  3.1  to 
3.4,  several  ancillary  modifications  are  required  in  TACWAR  to  support 
the  above  modifications*  Specifically,  a  user  data  input  subroutine, 
named  TNFINP,  and  a  data  initialization  BLOCK  DATA  subroutine  have  been 
created  to  initialize  the  array  variables  described  in  sections  3*  1  to 
3*4.  Both  TNFINP  and  the  BLOCK  DATA  subroutines  are  given  in  appendix 
A.  Also,  the  single  call  to  subroutine  TNFINP  is  made  at  the  beginning 
of  subroutine  TMAIN* 


4.  LIMITATIONS 

In  constructing  the  augmentations  to  TACWAR  described  in  section  3, 
no  attempt  was  made  to  minimize  the  additional  required  storage  to  hold 
the  new  data  variables  and  code*  In  particular,  no  overlay  structure 
was  developed  that  would  conform  to  that  of  the  later  versions  of 
TACWAR.*  Similarly,  the  data  for  the  new  variables  are  input  through  a 
rather  rudimentary  set  of  READ  instructions  in  subroutine  TNFINP,  and  no 
attempt  was  made  to  include  this  data  input  into  the  rather  extensive 
input  phase  of  TACWAR.  One  consequence  of  this  is  that  the 
augmentations  do  not  support  the  "restart”  capability  described  by  the 
Defense  Communications  Agency. t  Another  consequence  is  the  requirement 
for  the  augmented  data  to  be  in  a  definite  sequence  for  proper 
interpretation  by  subroutine  TNFINP. 


5.  USER  DATA  INPUT 

For  the  most  part,  the  user  data  necessary  to  initialize  the  new 
array  variables  ( sect .  3 )  are  ( 1 )  the  weighting  factors  used  to 
transform  an  explicitly  modeled  area  asset  into  an  equivalent  C^  asset 
for  the  same  area  or  echelon  and  (2)  the  functional  relationships 
describing  the  influence  of  C^/D  on  the  several  combat  simulations. 

The  surrogate  assets  for  the  division  level  C^  equipment  are  the 
weapons  systems  within  the  divisions  (up  to  10  such  system  types  are 
allowed  for  each  division).  An  initial  approximation  would  be  to  assume 


^TACWAR  Core  Reduction,  Defense  Communications  Agency  CCTC  Letter 
Report,  Task  Order  634  Subtask  1  (17  April  1978), 

f TACWAR  Restart  Capability,  Defense  Communications  Agency  CCTC  Letter 
Report,  Task  Order  534  Subtask' 2  (14  December  1977), 
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that  one  asset  is  associated  with  each  weapons  system;  thus,  the 
weighting  factors  for  division  assets  would  be  the  initial  number  of 
weapons  systems  at  the  beginning  of  the  simulation  for  each  combatant 
side.  These,  in  fact,  are  the  weighting  factors  used  in  the  examples  of 
section  6.  However ,  it  is  probably  a  better  simulation  of  reality  to 
assume  one  asset  (in  arbitrary  units)  to  each  division  subunit.  The 
number  of  weapons  systems  in  each  of  the  subunit  types  would  then 
determine  the  appropriate  asset  weighting  factor. 

The  sxirrogate  assets  for  corps- sec  tor  and  theater  equifxnent  are 
airbase  assets,  SSM  assets,  and  .  SAM  assets.  The  weighting  factors  to 
transform  these  into  equivalent  assets  may  be  determined  by  the 
following  rationale.  Airbase  assets  may  be  roughly  equated  with  fixed- 
site  hardened  facilities;  SSM  sites  may  be  roughly  equated  with 
mobile  nuclear  "soft”  assets;  SAM  sites  may  be  roughly  equated  with 
semimobile  nuclear  hardened  assets.  The  appropriate  mix  of  the  group 
will  depend  upon  the  specific  theater  of  conflict.  For  the  examples 
given  in  section  6,  the  following  corps- sec tor  and  theater  weighting 
factors  are  used  for  each  side: 

Airbase  0.30 
SSM  0.40 
SAM  0.30 

The  functional  relationships  between  C^/D  and  the  several  aspects  of 
the  augmentations  are  provided  according  to  the  following  assumptions : 

a.  The  functional  relationship  between  the  degradation  of  division- 
level  assets  and  the  reduction  of  division-level  messages  is  obtained 
from  the  results  of  TACNET  (a  discrete  event  simulation  of  a  theater- 
level  communications  model  developed  by  Egon  Marx^).  The  explicit 
relationship  is  shown  in  figure  4  and  assumed  applicable  for  each  side. 

b.  The  functional  relationship  between  the  reduction  of  division- 
level  message  traffic  and  the  decreased  division  effectiveness  is 
obtained  from  consultation  with  personnel  at  the  U.S.  Army  Training  and 
Doctrine  Command  (TRADOC)  Systems  Analysis  Activity  (TRASANA).  This 
relationship  is  shown  in  figxire  5  and  is  assumed  applicable  for  each 
side . 


c.  The  functional  relationship  between  the  degradation  of  corps- 
sector  and  theater  assets  and  the  reduction  of  "special"  messages 

associated  with  the  availability  of  nuclear  delivery  systems  was  taken 
frcxn  the  Marx  report.^  This  relationship  is  shown  in  figure  6  and  is 
assumed  applicable  for  each  side. 


^Egon  Marx,  TACNET,  A  Model  of  the  Army^s  Tactical  Communications 
Networks  in  Europe,  Harry  Diamond  ‘  Laboratories  HDL-TR~1913  (January 
1980). 
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INFORMATION  FLOW 
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Figure  5.  Division  effectiveness  as 
function  of  fraction  of 
information  messages 
available  within 
division • 


Figure  4,  Fraction  of  information 

available  within  division 
as  function  of  fraction 
of  assets  remaining 
within  division. 
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Figure  6.  Fraction  of  nuclear 

authorization  and  release 
messages  available  as 
function  of  remaining 
assets • 


d.  The  functional  relationships  between  the  degradation  of  corps- 
sector  and  theater  assets  and  the  nuclear  escalation  authorization 
delay  times  are  shown  in  figure  7(a,  b)  for  side  L  =  1  (blue)  and  side  L 
=  2  ( red) .  These  data  are  initial  estimates  used  to  exercise  the 
augmentations  more  than  for  accurate  representations  of  reality. 

e.  The  functional  relationships  between  the  degradation  of 
division,  corps-sector,  and  regional  assets  and  the  increased  TA 
processing  time  are  shown  in  figure  8  (a,  b,  c)  and  are  assumed 
applicable  for  each  side.  These  data  are  primarily  to  exercise  the 
augmentations . 

Figure  9  illustrates  a  sample  data  deck  used  as  input  for  subroutine 
TNFINP  described  in  section  3.5.  It  is  imperative  that  the  data  cards 
follow  in  correct  sequence. 
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C  ASSETS 


Figure  7. 


Nuclear  escalation  delay 
time  as  function  of 
remaining  assets:  (a 
blue  side  and  (b)  red 
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Figure  9.  TNFINP  input  data. 


X 
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Figure  9.  TNFINP  input  data  (Cont'd) 


6.  RESULTS  OF  SAMPLE  RUNS 


The  C^/D  modified  TACWAR  model  has  been  exercised  for  several  sets 
of  input  data  td  validate  the  augmentations  described  in  section  3  and 
to  determine  the  degree  of  sensitivity  of  the  overall  combat  simulation 
to  these  augmentations.  These  sample  simulation  runs  were  made  by  using 
an  unclassified  benchmark  data  base  obtained  from  CCTC.  For  the 
different  sample  runS/  the  values  of  the  parameters  in  this  data  base 
remained  constant  except  those  parameters  used  to  control  the  overall 
operation  of  the  simulation  such  as  the  total  number  of  1 2-hr  cycles 
involved  and  the  inclusion  of  nuclear  combat  capability.  The  additional 
parameters  associated  with  the  C^/D  augmentation  were  varied  from  run  to 
run  in  order  to  make  the  sensitivity  determination. 

Although  the  parameters  in  the  benchmark  data  base  and  the 
parameters  associated  with  C^/D  augmentation  are  reasonable,  they  are 
not  necessarily  an  accurate  reflection  of  current  combat  capabilities  of 
U.S.  or  adversary  forces.  Consequently,  the  results  of  the  sample  runs 
have  no  direct  significance  in  an  actual  environment. 

6.  1  Conventional  Warfare — Influence  of  C^/D  on  Division 
Effectiveness 


The  first  series  of  sample  runs  involved  opposing  forces 
constrained  to  conventional  warfare  only,  with  no  possibility  of  nuclear 
or  chemical  escalation.  These  runs  were  used  to  exercise  the  C^/D 
augmentation  to  division  effectiveness  and  subsequent  combat  results 
such  as  weapon  system  losses,  personnel  casualties,  and  FEBA  movement. 
The  sample  runs  included  two  cases: 

•  Side  1  (blue)  alone  suffers  C^/D. 

•  Side  2  (red)  alone  suffers  C^/D. 

The  simulations  were  run  for  twenty-five  12-hr  cycles  (12.5 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater.  However,  the  results  of  only  a  typical  sector  (sector  6)  were 
subjected  to  a  detailed  analysis. 

Figure  10  shows  the  personnel  casualties  incurred  by  side  1 
( blue)  in  sector  6  for  the  two  cases .  If  only  the  last  values  of  the 
casualties  had  been  given  for  analysis  instead  of  the  entire  time 
history,  one  might  have  logically  concluded  that  the  results  disagreed 
with  practical  intuition.  Specifically,  after  cycle  14,  the  blue 
casualties  are  less  when  the  blue  side  suffers  C^/D  than  when  the  red 
side  suffers  C^/D.  However,  a  more  detailed  analysis  of  the  entire 
picture  of  the  combat  resolves  this  apparent  contradiction.  Thus,  when 
the  blue  side  alone  suffers  C^/D,  the  red  side  at  the  beginning  of  the 
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simulation  becomes  the  sector  attacker  and  maintains  this  attack  posture 
throughout  the  entire  simulation.  The  blue  side  (defending)  assumes 
several  different  defense  postures  such  as  delay,  prepared  defense, 
hasty  defense,  and  breakthrough,  as  shown  in  figure  10.  Each  of  these 
defense  postures  has  a  different  personnel  attrition  rate  associated 
with  it,  which  is  the  major  cause  of  the  abrupt  change  in  slope  in  the 
figure.  On  the  other  hand,  when  the  red  side  alone  suffers  C Vd,  it 
again  begins  the  simulation  as  the  sector  attacker.  However,  after 
cycle  14,  the  red  side  stops  attacking  and  shifts  to  a  holding  posture; 
the  blue  side  likewise  shifts  from  defense  to  holding.  Since  the 
personnel  attrition  rate  for  a  holding  posture  is  greater  than  that  for 
the  delay  defense  posture,  the  blue  casualty  lines  for  the  two  cases 
cross  shortly  after  cycle  14,  and  the  apparent  inconsistency  is 
explained.  Consequently,  it  is  advisable  when  analyzing  the  results  of 
TACWAR  simulations  (including  those  associated  with  C^/D  augmentation) 
not  to  reject  as  wrong  or  in  error  any  result  that,  on  the  surface, 
appears  to  contradict  logical  intuition. 


reduction  of  division 
effectiveness • 
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Figure  1 1  shows  the  counterpart  casualties  incurred  by  side  2 
(red)  for  the  two  cases.  For  this  situation,  there  is  no  inconsistency 
in  what  is  to  be  intuitively  expected  (at  least  to  the  point  where  the 
simulation  run  was  ended).  These  results  show  approximately  a  10- 
percent  maximum  difference  for  the  two  extreme  cases  of  C^/D,  that  is, 
blue  alone  versus  red  alone. 
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Figure  11,  Red  casualties  for  C^/D 
reduction  of  division 
effectiveness • 
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Figure  12  shows  the  relative  FEB A, movement  in  sector  6  for  the 
two  cases •  This  figure  illustrates  the  fact  that  C^/D  can  dramatically 
affect  some  of  the  results  of  combat •  The  detailed  analysis  of  all 
aspects  of  the  simulation  is  required  for  full  understanding  of  the 
reason  for  this  behavior.  Thus,  with  blue  alone  suffering  C^/D,  the  red 
side  maintains  its  attack  posture  throughout  the  simulation.  After 
cycle  14,  when  the  blue  side  assumes  a  delay  defensive  posture  and  the 
terrain  interval  allows  a  fast  FEBA  movement,  the  slope  of  the  FEBA 
movement  line  abruptly  increases.  On  the  other  hand,  when  the  red  side 
alone  suffers  cVd,  its  attack  stalls  after  cycle  14,  and  the  FEBA 
movement  does  not  increase  further. 


Figure  12.  Forward  edge  of  battle  area 

movement  for  C^/D  reduction  of 
division  effectiveness. 
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6. 2  Nuclear  Warfare--"Influence  of  C^/D  on  Nuclear  Delivery  System 

Availability 

The  next  series  of  sample  runs  involved  opposing  forces  engaged 
in  a  combined  conventional  and  nuclear  warfare  environment.  Nuclear 
warfare  was  played  by  assuming  that  a  new  escalation  state  could  be 
initiated  every  12-hr  cycle.  As  a  consequence  of  the  benchmark  data 
base  used,  a  restricted  set  of  escalation  criteria  was  used  in  the 
sample  runs.  Specifically,  preemptive  strike  escalation  was  allowed 
from  cycle  0  through  cycle  4.  Following  cycle  4,  the  only  criterion  for 
allowed  nuclear  escalation  was  the  FEBA  movement  past  a  critical 
threshold.  Consequently,  the  number  of  nuclear  escalation  attempts  was 
limited  for  both  sides. 

As  in  section  6.1,  sample  runs  included  simulations  in  which 
side  1  (blue)  alone  suffered  C^/D  and  in  which  side  2  (red)  alone 
suffered  C^/D.  The  simulations  were  run  to  twenty  12-hr  cycles  (10 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater.  Again  only  sector  6  was  analyzed  in  detail. 

Figures  13  to  15  show  the  fraction  of  nuclear  delivery  system 
availability  due  to  C^/D  for  division,  corps- sector ,  and  theater 
echelons,  respectively.  The  strong  decrease  in  the  availability  of 
corps- sec tor  delivery  systems  reflects  the  active  nuclear  combat  being 
played  as  a  result  of  preemptive  attacks.  After  cycle  4,  the  change  is 
much  slower  because  only  conventional  warfare  is  being  waged  during  this 
time.  The  changes  occvirring  at  cycle  14  are  due  to  reallocation  of 
assets  from  the  theater  to  the  corps- sector  echelon.  The  availability 
of  theater  delivery  systems  shows  a  more  gradual  decrease  due  primarily 
to  conventional  attrition  by  aircraft  attack.  Lastly,  the  decrease  to 
zero  of  the  blue  side  division  availability  between  cycles  8  and  16  is 
an  "artifact”  resulting  when  the  supplies  inventory  for  the  blue 
divisions  is  depleted  and  the  divisions  are  forced  to  withdraw  out  of 
the  active  battle  area.  When  new  supplies  are  allocated  to  these 
divisions,  they  again  achieve  a  finite  delivery  syston  availability. 

.  In  conclusion,  although  the  availability  factors  within  each 
echelon  are  strongly  influenced  by  C^/D,  the  total  niimber  of  nuclear 
rounds  fired  by  each  side  remained  essentially  the  same  as  when  no  C^/D 
occiarred  for  either  side.  They  are  similar  because  of  the  large  number 
of  potential  delivery  systems  available  at  each  echelon  and  the 
restricted  nuclear  combat  being  played;  that  is,  the  number  of  potential 
nuclear  targets  remained  small  with  or  without  C^/D. 
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Figure  15.  Reduced  nuclear 
delivery  system 
availability  for 
theater  echelon  due 
to  C^/D. 


6.3  Nuclear  Warfare — Influence  of  C^/D  on  Nuclear  Escalation 


This  series  of  sample  runs  involved  opposing  forces  engaged  in 
a  combined  conventional  and  nuclear  warfare  environment.  In  contra¬ 
distinction  to  warfare  described  in  section  6.2/  in  which  nuclear 
escalation  could  occur  at  the  beginning  of  each  12 -hr  cycle /  the  present 
section  includes  the  nuclear  escalation  authorization  delay  process  in 
which  a  desired  nuclear  escalation  state  is  reached  only  after  a  delay 
time  influenced  by  cVd. 

The  Scunple  runs  were  made  for  the  simulation  in  which  both  side 
1  (blue)  and  side  2  (red)  suffer  cVd*  As  in  section  6.2/  the 
simulation  continued  out  to  twenty  12-hr  cycles  (10  days).  However/  in 
the  present  set  of  runS/  each  12-hr  cycle  was  subdivided  into  six  2-hr 
subcycles  in  which  possible  nuclear  escalation  could  occur.  This 
subdivision  defines  better  the  overall  escalation  delay  process. 

Figure  16  compares  the  FEBA  movement  in  sector  6  for  ( 1 )  C^/D 
delayed  nuclear  escalation/  (2)  12-hr  nuclear  escalation/  and  (3) 
nonnuclear  combat.  It  is  seen  in  figure  16  that  the  C^/D  delayed 
escalation  process  greatly  constrains  nuclear  combat  compared  with  the 
12-hr  escalation  and  causes  the  C^/D  delayed  FEBA  movement  to  lie  in  a 
region  approximately  halfway  between  the  12-hr  escalation  and  nonnuclear 
combat. 
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Figure  16.  Forward  edge  of  battle 
area  movement  for 
different  nuclear 
escalation  processes • 


6.4  Target  Acquisition — Influence  of  cVd  on  Target  Acquisition 
Processing  Delay  Time 

A  series  of  sample  runs  was  made  to  validate  the  code  changes 
in  the  TACWAR  model  used  to  increase  the  TA  processing  delay  time  due  to 
cVd«  However,  the  augmentation  of  the  TA  processing  delay  does  not 
manifest  itself  in  any  overall  change  in  combat  results  since  the  TA 
delay  time  quantity  is  not  presently  used  in  the  other  TACWAR  routines. 
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7.  SUMMARY  AND  CONCLUSIONS 


The  TACWAR  theater-level  combat  simulation  model  has  been  augmented 
to  include  command,  control,  and  communications  degradation  effects  in 
four  important  areas  of  the  combat  simulation: 

Division  effectiveness 
Nuclear  delivery  system  availability 
Nuclear  escalation  authorization  delay 
Target  acquisition  processing  delay 

Sample  runs  made  using  a  benchmark  data  base  show  noticeable  changes  in 
overall  combat  results  (such  as  personnel  casualties  and  FEBA  movement) 
when  these  cVd  augmentations  are  included  in  the  simulation  (except  the 
TA  processing  delay  as  mentioned  in  sect.  6.4). 
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APPENDIX  A. — COMPUTER  CODE  CHANGES  TO  IMPLEMENT  TACWAR  AUGMENTATIONS  FOR 
COMMAND,  CONTROL,  AND  COMMUNICATIONS  DEGRADATION 
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APPENDIX  A 


This  appendix  contains  the  actual  computer  code  changes  that  are 
used  to  implement  the  TACWAR  augmentations  for  command,  control,  and 
communications  degradation  (C^/D),  Lines  of  new  computer  code  that  have 
been  inserted  into  the  original  versions  of  TACWAR  are  indicated  by  the 
mnemonic  I  JClOOl  in  the  sequence  field  (coliamns  73  to  80)  of  the 
instruction  line.  Similarly,  lines  of  computer  code  that  have  been 
modified  in  the  original  version  of  TACWAR  are  indicated  by  the  mnemonic 
C  J3I001  in  the  sequence  field.  For  brevity,  the  long  common  block  that 
holds  the  dynamic  parameters  of  the  original  version  of  TACWAR  is 
indicated  in  any  computer  listing  as  COMMON/BBB/  enclosed  between  two 
lines  of  asterisks. 

The  appendix  has  five  sections  corresponding  to  the  four  major  areas 
of  augmentation  and  an  ancillary  or  general  area  of  augmentation : 

A-1.  Division  Effectiveness 

A-2.  Nuclear  Delivery  System  Availability 

A-3.  Nuclear  Escalation  Delay 

A-4.  Target  Acquisition  Processing  Delay 

A-5.  Input  and  Main  Control 

A-1.  DIVISION  EFFECTIVENESS 

This  section  partially  lists  those  subroutines  that  calculate 
division  effectiveness  factors,  namely,  FEBAMT,  GC,  TC,  and  TIMET. 


SUBROUTINE  FEBAMT 

C  FEBAMT  COMPUTES  FEBA  MOVEMENT  AS  A  FUNCTION  OF  FORCE  RATIO, 

C  POSTURE,  TERRAIN,  AND  MOBILITY. 

C  CALLED  BY  GROUND 

C  CALLS  CVFl/ 

REAL  NSUTD,r4TSUDT,INTDA,INTDE,INT0S 

COHMON/BCB/ 

•  0^400  00  000000000000  00  00*0  O00O0  00000000000000000000  0 00 0  0  0 0  0  0  0  0  0  0  0  0  0  0  0  0  0 00^0  0  00  0000 

C0MM0N/TNFSC3/NC3DD  1 2 1 , XC3DD (8 ,2 1 , YC300 1 8 ,2 1  ,  I  JCIOOl 

0  NC0nD(2),XC0M0|8,2)  ,YCOMOI8f2) ,  I  JCIOOl 

0  FCLWLC1D,2I  I  JCIOOl 

COMMON/GCFM/  IN0ftAK(8,?) 

DIMENSION  V0DSF(I40)  fKVOOCCUOl 
DIMENSION  SUMM(lO)  ,  ISUMMC8I  ,IT0N0SC8) 

MDTs JCON 
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5)  compute  effectiveness  of  all  divisions. 


IF  ( IPRD.NE.I I  GO  TO  15 
WRITE (MOT, 18)  ICYCLE 

18  FORMAT! »0», ’•♦•OUTPUT  FROM  SUBROUTINE  FEBAMT.  CYCLE  »  »,13I 
15  CONTINUE 

SKIP  THIS  SECTION  IF  SECURITY  FORCE  RATIO  IS  NOT  TO  BE  USEO 
IFCIUSFRC.EO.DI  GO  TO  599 

kVODC  =  ACTUAL  DIVISION  WEAPON  VALUE  ON  OFFENSE 
PPS  =  DIVISION  FRACTIONAL  PERSONNEL  STRENGTH 
OSH  =  DAYS  SUPPLY  ON  HAND 
N2  =  0 

LIH^N0(1MND(2I«MAD(1I4HAD(2I 
DO  500  IDMtLIH 
UVODCCIDI^O. 

EFFDDCIDMO. 

VDDSF{IDI=0. 

500  CONTINUE 

DD  550  L=I  ,2 
NI  =I-»N2 
N2  =  N24ND  (L  I 
N3»NW(LI 
00  52D  iDi^NI  ,N2 
IT=)TD()DI 
WVDDC(ID)<0. 

C0KD*0. 

DD  505  IWi:I,N3 

WVDDC  nD)>WVDDC(IOMVlHOSFriU»L)»HDIVriW»ID) 

TOEW=TWD(rW,rTI 

lF{TOfW.GT.O.ICOMD*COMD*FCLWLCIH,L  I  •HD  I V f IH , ID) /TOEW 
505  CONTINUE 

PPS=PO)Vt)D)/TPOtlT) 

C  COMPUTE  PERSONNEL  EFFECT  IVENESS 

CALL  CVFW(NEOEF(L)»XDEF(l,L)»YOEFrl,L)»PPS«PEO) 
0SH=S0IV()U)/PCSU()T) 

C  COMPUTE  SUPPLY  EFFECTIVENESS  FACTOR 

CALL  CVFHCNSEFFILI , XSEFF (1 , L I , YSEF F C 1 ,L I .DSH.SEF I 
C....  COMPUTE  C**3  DEGRADATION 

CALL  CVE  WCNCUKDEL)  f  XCOHOO  »L  1 1 YCOHD ( 1  »L  1 1 COHO t CCCD I 
C....  COMPUTE.  C«*3/D  EFFECTIVENESS  FACTOR 

CALL  CVFH{NC3DD*LI ,XC3DDC1 *L ) , YC3DDf 1 ,L I ,CCC 0 ,E F FC3 I 
C  COMPUTE  DIVISION  EFFECTIVENESS  ANO  COMBAT  VALUE  ON  DEFENSE 

EFFDD(IDI*EFFC3*SEF^AH|NUfWVDDC(I0J/HVDDTSf  ITII  ,PEOl 
IF  {I0MU.ED.3.0R.IDHU.E0.5I  GO  TO  6908 
EFFDDCIDI*  EFFDO( IDI^FDEFCPIIOI 
6908  CONTINUE 

VDDSF  (ID  |rEFFDD(IDI*HVDDTSIIT| 

520  CONTINUE 

N2=N2^MAD{LI 
550  CONTINUE 
C 

IFtIPRD.NE .11  CO  TD  599 
HRITE{MQT,II7I 
N3  =  ND{1|-»ND(2'1-»MAD{1I 
DO  580  )DO,N3 
IT^ITOt lOI 

KRITE(MDT,12|  IO,WVDDC(ID| .HVDDTS C IT  I .EFFODC 1 0 1 1 VOOSF 1 1 0 1 
580  CONTINUE 
599  CONTINUE 


SUBROUTINE  CC 

C  GC  COMPUTES  ATTRITION  TO  PEOPLE  AND  WEAPONS  CAUSED  BY  GROUNO  FIRE 

C  AND  CAS  ANO  ALSO  COMPUTES  WEAPONS  REPAIRABLE  AND  SUPPLY  LOSSES. 

€  CALLEO  BY  GROUND 

C  CALLS  E  1GENV,CVFH,MPR0D,CNTRYC 

C* 

REAL  NSUTD,NTSUDT,INT0A,INTDE,1NTDS 


JCIOOl 


UClDOl 

JCIOOl 


JCIOOl 

JCIOOl 

JCIOOl 

JCIOOl 

JCIOOl 
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«0O**0 00 00 eo 000 dOO 00 00 0« 00 0000 00 00009000 0*00 

CO^tMON/BUB/ 

00 0000 00 OOOCOOOOOOOOOOOOOOOOOOOO 00 OOOOOOOOOOO 00000 OOOOOOOOOOOOOO 000000000000000 

CaMH0N/TNF5C3/NC3DD(2) , XC300 (8 ,2 ) , YC300 t 8 ,2 ) ,  I  JCIOO 

o  NCOMD  t2) rXC0M0(8,2), YC0M0tB,2)  ,  I  JO  00 

•  FCLWL(10,2)  1  JCIOO 

COHHON/OCFH/  IW0R4W(B, 2) 

01  HENS  ION  EDAXSR(2a0),EDDXSR(2CO},V0ACi200}.VDDC(200) 

01  ME  NS  I  ON  WS(  10,2)  ,AAWA  OO,  10  «2  )  »  AAWO ( 10  •  1 0  t2 )  * 

1  PWAKWl  ID,  1C  ,2) ,PHDKW(10 ,10 t2I tAAMA(6t 10.21 t 
A  AAMD  (6, 10  ,?) tPAAKW (7, 10 ,2) , PACK W ( 7 . 10 . 2 ) , 

2  BSUMtlOO)  ,RSUH(10D),VlWACFn0t2),vrw0CF(10,2), 

3  VIAACFt  to  ,2) ,  VIADCF  tlO  ,2)  ,WVOAT  UO)  .TYPCAF  (8  )  ,TYPC0F(8)  , 

A  VLS(2} ,WV00T(}0)»^V0AC(200) , W VODC  (200 ) , PCS ( 2 ) ,SUMM ( 10  }  , 

5  TSC(2) ,PLS(8,2) >WL5(}0t2) >OKCS( 10  ,10,2). 

6  AKGS(7, ID ,21 , IHOLO (2) 

DIMENSION  TSL (8|21 ,TM5(2) 

DIMtNSIDN  WLDAS (I  0,8,2) ,CDACS(B,2) 

MaT=JCON 


4)  ADJUST  THE  STANDARD  ALLOCATtON- 

THIS  SECTION  EXECUTED  ONLY  ON  FIRST  CYCLE  OF  CAME 
iFtiCYCLE.NE.I )  GO  TO  499 
00  430  L^}  ,2 
N3=NW(L ) 

K  =  3-L 
n4=nw;k) 

NS-NAH(LI  C  JCIOO 

00  430  KW= 1,N4 

IF  (PWSFCKW  ,K I .EQ.O.D)  CO  TO  4)3 
DO  405  )H=1,N3 

SAUA( 1W,KW  ,LI>SAWA( 1 W.KW.L }/PWSF(KW,K} 

SAWO(IH,KW  ,L  )>SAWO( 1K,KH,L )/PUSF(KV,Kl 
405  CONltNUE 

00  410  lAHO  .NS 

5AHA( (AH,KK,L) >SAHA( }AH,KH,L )/PHSF (KH,K) 
SAHD(IAK,K)/,L)-SAH0(1AK,KW,L)/PWSF(KW,K) 

4)0  CONTINUE 
CO  TO  430 

413  DO  420  1W=1,N3 

SAWAC  IW,KW,L )>0.0 
SAMD (  IW  ,Kk  ,L ) >0.0 
420  CONTINUE 

00  425  I AM«1  ,N5 
SAMA((AM,KW,L)*U.0 
SAKD  MAH,Kk,L)  *0.0 
425  CUNtiNUt 
430  CONTINUE 
450  CONTtNUE 


00  2503  }tf>I,N3 

WV0ATnT)  =  WV0AT(lT)4V(HACF(}H,L)«TW0(lH,lTl 
WVODTOT)  =  WVOOTC  1T)4VIW0CF(1H,L)*TW0(IW,1T) 

2303  CONTINUE 

2504  CONTINUE 

00  2525  I0S*N1,N2 
10  =  (DLABA(  IDS, IS) 
lT*lTDtIO) 

WV0AC((0I>0. 

WV00Ct!0)=0. 

COMORO. 

00  2303  (W«1,N3 

WV0AC((0)’^KV0AC(1D)4V)WACF(IH,L}*W01V(1W,10} 
UVDDCilO)’WVOOC(  I0)4VIW0CF  C1IF,L}*W01V(1U,}0} 
TOEW»TWOtIW, )T  ) 

IF(T0EW.CT .0.)C0H0=C0H04FCLWLtlH,L )4H0IVI1W, 10)/T0EW 

2505  continue 

c  calculate  effectiveness  OF  personnel. 

PPS=P0IV(I0)/TP0(IT) 


I  JOOOl 

I  JOOOl 
1  JClOOl 
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CALL  CVFW5NE  AEFiL)  »l(AEFiI»L)  t  Y  At  F  C  1 ,  L I  ,PPS,  PE  A  I 
CALL  CVFWINEOEF(L),XDEFIIfL)fYDEFil,Ll,PPS,PEO) 

EDAXSR(ID)  =AK)NU(HVDAC(  ID)/MVDAT(  ITII  ,PEAI 
EDDXSR(  ID)  ^AKINI  (UVDDC  (  ID  ) /WVDDT  (  IT  )  )  ,PED) 

C  CALCULATE  EFFECTIVENESS  REDUCTION  DUE  TO  SUPPLY  SHORTAGE. 


DSH=SDIVIID)/PCSDIIT) 

CALL  CVFWINSEFFIL) ,XSEFFil,L),YSEFF(l,L),OSH,SnP) 

C....  COMPUTE  C»»3  DEGRADATION  I  JCIOOI 

CALL  CVFW(NCOHDlL).XCOHDlIfL)»YCOHDCl,L)fCOMDfCCCD)  I  JCIOOI 

C.---  COMPUTE  C^'^S/D  EFFECTIVENESS  FACTOR  I  JCIODI 

CALL  CVFWINC3DDIL),XC3DDiI  ,L),YC3D0iI,L),CCCD,EFFC3)  )  JOOOI 

C  CALCULATE  DIVISION  EFFECTIVENESS  AND  GROUND  VALUES 

EFFDAiI0)=EFFC3^SEF^EDAXSR (ID)  C  JCIOOI 

EFFDDII0)  =  EFFC3oSEF®E0DXSRII0)  C  JCIOOI 


IF( I0MU^EQ.3.OR.IOMU.E0.3)  CO  TO  69D8 
EFFDAIID)  =  EFFOA(  IO)»FDEFCPnO) 

EFFDDIIO)*EFFDD( ID)oFDEFCP(IO) 

6908  CONTINUE 

VDACiIO)=EFFOA  (10)<»WV0AT()T) 

VODC(ID) =EFFOO(IO)*WVOOTi)T) 

VGABAilS.L )^VGAPA|IS,L)«VDACtIO) 

VGDeAlIS.L )>VGDeA(IS.L)«VDDC(ID) 

C 

IFdPRD.NE.l)  GO  TO  2525 
WRITE iMOT, 110) 

WRITE(MOT,.)D)  )D,IT 
MRITEIMOTtlll) 

WRITE  (KDT,  22)  WVDAC  ( ID ) ,  WVDDC  ( ID  },*  WVDAT  (  IT) ,  WVDDT  ( }  T ) .  EDAXSRC 1 0 ) . 
X  EDDXSRIID),LFFDA(IDIfEFFDD(IO},VDAC(ID).VDDC(}D) 

WR  ITE  IMOT ,1)21 

WRITEIM0T,22)  PE  A, PE D , DSH , SE F 
2525  continue 
2530  CONTINUE 

IFOPRU.NE.))  CO  TO  3000 
KRITLIMUT,II3) 

WRITE (MOT, 22  )  ( ( VG A b A ( } S ,L ) f VGDBA (  15 «L ) ) fL • ) i2 1 

C  30)  CALCULATE  AIR  VALUES  ON  ATTACK  AND  DEFENSE 

3000  DO  302D  L=),2 
VAABA()S»L)=0. 


SUBROUTINE  TC 


SUBROUTINE  TC  IS  THE  MAJOR  THEATER  CONTROL  PROGRAM  AND  HANDLES 
A  MAJOR  PORTION  OF  THE  BOOKEEPING  EFFORT  REQUIRED  BY  TACVAR. 
called  by  TMAIN.  calls  AIRASG,  APORTNf  CNTRYCf  CVFW«  IIBA,  MSREADt 
MSWRIT,  NXDIVt  SECKTH,  TAG 

ALSD  CALLS  2ND  HALF  OF  ORIGINAL  ROUTINE  tTCXX) 


REAL  NSUTD,NTSUDT,INTDA,INTDEtINTD5 


ciiMMnN/hnh/ 


C0MH0N/TNFSC3/NC3DDI2} f XC3DD {8 . 2 1 1 YC30D C8 ,2 )  •  I  JCIOOI 

NC0MDl2).XC0HD(e,2) • YC0MD(6,2) t  I  JCIOOI 

FCLWLIID,2)  I  JCIOOI 

COHMON/TCO/SDD I V  1 1 40 ) , SDSN ( 95 ) .SDA 8F5 1 8 } .SDABRSCa) » 

ITESCI8,6),ITEHL(8«3«2) t 

IW0KKII30) , IWORK2i3D) •IWCRKI30.2) t RWN AB A ( 10 • 1 .2 ) « 
RPNA6A(I,2),VDDSF(I40),SUHM(10)«WNDABAI10,140)» 

PND  ABA  1 140)  tlDDABAIKiD)  • 

ST0Rll3.e.2).ST0R2(3«0«2}« 

IABASTI8I • 

DISTBPI8) .FRACDS(e) ,P2L0NG(8) • 

WVDDCI14D) .WVDAC(140) • IRDABAC2)»TWNDIVI10}, 

SUNDIVt?) ,SUA(7) 

DIMENSION  ASIDE(2) 
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451  COMPUTE  EFFECTIVENESS  OF  ALL  DIVISIONS- 


N2*D 

C  FOR  EACH  SIDE  L  DIVISION 

DO  ^.550  L*lr2 
N1 = 1 ♦N2 
N2»N2*NDIL  ) 

N3»NW  (L  ) 

OD  <«520  lD*NltN2 

11  *  nu(  M>) 

WVl)Al(IU)»U. 

HVDDC)ID)*D. 

CDMD=D.  I  JCIDDl 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE- 
DO  A5D5  1W=^1  pN3 

WVDAC 1)D1>WVDAC(1D)«V1WASF(1W*L)«WDZV(]U«]D) 

WVDDCC 1D)*WVDDC( 1D)4V1 WDSF  ClWrLI •WDIV) IH* ID) 

T0EW«^TWD)1W,1T  )  X  JClDOl 

IF (TCEW.GT .0 .)C0HD«CUMD4FCLWL( 1W«L  1«UD1V(1W« XDl/TOEU  ]  JClDOl 

45D5  CONTINUE 

C  USE  PERCENT  PERSONNEL  STRENGTH  )PPS)  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE. 

PPS=PDIV(1D1/TPD(1T1 

CALL  CVFWINFAEFIL) rXAEFl X»L)  ,YAEF(  1,L 1 .PPS.PEAI 
CALL  CVFW(NEDEF)L)rXDEF(lpL),YDEF(l,L),PPSrPEDI 
C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT-  FACTOR. 


DSH^SDlVdDI/PCSDdTl 

CALL  CVFMINSEFFIL) pXSEFF  11  ,L 1  ,  YSE F F C 1 ,L I ,DSH , SEF ) 

C-...  COMPUTE  C903  DEGRADATION  I  JCIDDl 

CALL  CVFWINCOMDI L) ,XCDMD)X ,L  )  r YCOMDC I »L ) t COMD ,CCCD )  I  JCIDDl 

C....  COMPUTE  C^^3/D  EFFECTIVENESS  FACTOR  X  JCIOOl 

CALL  CVFW(NC3DD(L),XC3DD(1  ,L),YC3DD)X,L),CCCD,tFFC?)  1  JODDl 

C  COMPUTE  IFff  CT  IVENESS  OF  DIVISION  (IN  ATTACK  AND  ON  DEFENSE- 

EFFDAIIOI  =  Er  FC3®S[F»AMINH)WVDAC  II  D)/WVDATS)  IT) )  ,PtA)  C  JClDOl 

EFFDD11D)«EFFC3*SEF®AMIN1C  IWVODCODI/WVDDTSdT))  ,P£D)  C  JCIDDl 

IF )10MU.EQ-3.0R.IDMU-E0.5)  GO  TO  6908 
EFFDAdD)*EFFDA<  )D)  •FDEFCP  ()D) 

EFFDD)lD)»EFFDD)ID)«FDEFCPdD) 

G9D8  CONTINUE 


C  9DI  COMPUTE  EFFECTIVENESS  OF  DIVISIONS  AND  ORDER  DIVISIONS  IN  FIRST 
C  INACTIVE  8ATTLE  AREA  ACCORDINGLY. 

N2:^D 

DD  9DSD  L=lr2 
NI »I4N2 
N2*N2^ND(L ) 

N3=NW(L1 

C . DETERMINE  EFFECTIVVESS  OF  DIVISION  ON  ATTACK  AND  DEFENSE- 

DO  9D2D  lD*NlrN2 

)T=‘1TD)1D1 

WVDACdD)>D. 

UVDDCllDMD- 

COMD=D- 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE- 

DO  9DC5  IWd  ,N3 

WVDAC110)*WVDACI]DMVlWASFnWtL)*WDlVC)W,lD) 

WVDDC  (ID  )»WVDDC(  IDI  -^VI  WDSF  ( 1  W  *  L 1  «W  D1 V  1 1 W  ,  1 D  1 
TQEMdWDdWrlT  1 

IFITOEW.OT  .D.)COMD*COMD«FCLWLdWfL)«WDlVdU»ID)/TQEW 
90DS  CONTINUE 

'C  USE  PERCENT  PERSONNEL  STRENGTH  )PPS)  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE. 

PPS  =  PDIVIID)/TPDdT  ) 

CALL  CVFW(NFAEFIL) ,XAEF I 1,LI ,YAEF( ULI ,PPSfPEA) 

CALL  CVFW(NEDEFILI,XDEFd,L),YDEF)I,LI,PPS,PED) 

C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT.  FACTOR. 

D5H*SU)VdDI/PCSDdT) 

CALL  CVfWINStFFlLl.XSlFFd  ,L  )  t  YSt  F  F )  1 ,  L  I  t  DSH .  St  F  I 


X  JCIODI 


X  JCIDDl 
I  JCIDDl 
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C.*..  CUMPUTC  t'-'O  0)GkADATn3N  I  JOOOl 

CALL  CVF  K(rUUHt;(L)  »X(UMD(1  ,L  J  ,YCUM0(  1  ,LJ  ,CnH0#CCC0l  I  JOOOl 

C....  COMPUTE  Co^'5/D  rrFECTIVENESS  FACTOR  I  JCIOOl 

CALL  CVFK(  NC:i0D(LUXC30U(l  ,0  f  YC300(1  ,L  I  tCCC0.EFFC3l  I  JOOOl 

C  COMPUTE  IFFUT  IVtMEi5  OF  OJVISJON  ON  ATTACK  ANO  UN  OErCNSf. 

EFFOAtID)  =  ErFC3«5EF«AMINl((HVOAC()OJ/WVOATS(lTn,PEAJ  C  JCIOOl 

EF  fUU  ( I  0)  =  EFFC  3«5EF»AM  INI  I  (WVDDO  I  DJ/HV00TS(  IT  ,PEOI  C  JCIOOl 

IF (IDMU.10.3.UR.IOHU.EQ.5)  CO  TO  6909 
EFfOA(lOI  =  EFFC»ATIDlof  OCFCPCIDI 
EFFDUiIO)*EFFOD( ID  I •F OE F CP ( I  01 
6909  CONTINUE 


SUBROUTINE  TIMET 
THEATER  CONTROL  ROUTINE  FDR  1/0 

TIMET  PROCESSES  ALL  RESOURCE  CHANGES  THAT  OCCUR  DURING  THE  WAR 
CALLED  BY  TMAIN 

CALLS  ASSIGN,  MSREAO,  MSKRIT,  CVFW 


C 

C* 

C 
C 
C 

C* 

REAL  NSUTD,NTSUDT,INTDA,INTDE,INTDS 

09  000  0  0  0090  #0  00  00 

COMMDN/BBB/ 


O  0  0 


ooooooooo 


ooooooooooooooooo 


DIMENSION  IREC  (211  ,ZREC(2n  tZEPOdl  ,  IVALdS)  *ZVAL(15) 
CDMMUN/TNFSC3/NC3DD(2I , XC300 t B ,2 1 » YC 3D0 ( 8 ,2 ) « 

»  NCDMD(2) ,XC0MD(B»2) ,YC0M0(6«2) * 

►  FCLWL (10,21 

EQUIVALENCE  (  I  RFC( 1) , ZR EC ( 1 1  I , ( I  ON « I REC ( 1 1)  ,  ( IFN , IREC (2  I) • 

»  (KBA,IREC(8))  ,(KREG,lRECC10n»(KSA,IREC(9n»(IT»IREC(7nt 
®  ( IRECIA) ,  I IDI t 

»  ( ICUOE  ,  IREC  (3  1 1  ,(lSTt  IREC  (M  I  ,( ITO,  IRECCSn  t  (IINC,  IRECicn  , 
»  (IVAL(lMREC(7n  tdVALd  ItZVALd  I)  ,  (NEPO(  1)  .ZEPD  d  I) 
1TT=1TT0 
ITT=15 


10)  READ  TIME-T  INPUTS 


1  JCIOOl 
1  JCIOOl 
1  JCIOOL 


UVDD^O. 

COMORO. 

DO  910  1W«1,MM 

NVDO  =  WVDD4VlWDSFdW,L)«WDlVtlW,irOI 
T3EW*TWDdWtIT) 

IF  (TCEW-CT  .0-ICDMD*CDMD*FCLWLdW,L  I^WO  1 V  CIH  ,  1 10 1 /TOE W 
910  CONTINUE 

C  COMPUTE  OlVlSlDN  EFFECTIVENESS 

PPS*PDIV(I  IDI/TPDdT) 

CALL  CVFW(NEDEF(L)t  XDEFd.LI  , YOE F  1 1  ,L  I  .PPS, PEOl 
DSH^SDlVd  1DI/PC5D(  IT) 

CALL  CVFW(N5EFF(L) , XSE FF (1  ,L ) , YSEF Ft  1 ,L ) *D5H,5EFI 
C....  COMPUTE  C*»3  DEGRADATION 

CALL  CVFW(NCOMD(L) .XCDMDil » L 1 , YCDMDt I , L 1 .COMD tCCCO I 
C....  COMPUTE  C**3/0  EFFECTIVENESS  FACTOR 

CALL  CVFWtNC3DD(L)  ,XC300d  .L  1 ,  YC3DDn  ,  L  1  ,CCCD  ,EF FC3  ) 
EFFDDd  ID)  rt  FFC3*SEF*AMIN1  t(WVDD/HVODTS(  IT)  )  ,PED) 
IF(IOMU.E0.3.DR.IQHU.E0.5)  GO  TO  6908 
EFFDOdlOl^CFFOOdlDloFOEFCPdlD) 

6906  CONTINUE 

C  ASSIGN  DIVISION  TO  A  PARTICULAR  LOCATION  IN  THEATER 

CALL  ASSIGN! IDN . 1 1  0 ,K6 A . KS A tKREG • L  I 
18ALD  (I  10) <KBA 
NDI8A(KSA,L) ^NOlBACKSAtL )4l 
J=NDIBA(KSA,L) 

1DLIBA(J.KSA,L)-1ID 
GO  TO  67 
81  CONTINUE 
RETURN 
END 


1  JOOOl 


1  JCIOOl 
1  JCIOOl 


T  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
C  JCIOOl 
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A-2.  NUCLEAR  DELIVERY  SYSTEM  AVAILABILITY 


This  section  completely  lists  subroutine  DSDEG,  which  determines  the 
several  delivery  system  degradation  factors;  subroutine  NUCCCD,  which 
determines  the  C^/D  factors  of  airbase  assets;  and  function  NWHINV,  in 
which  the  delivery  system  degradation  factors  are  used.  Also  included 
is  that  portion  of  subroutine  DAMEVL  that  is  modified  to  include 
adjustment  to  actual  airbase  operating  capabilities. 


SUBROUTINE  DSDE& 

C  I  JClOOl 

C  DSD^C  DETERMINES  THE  FRACTIONAL  DECREASE  IN  DIVISION,  SECTOR.  AND  I  JCIDOI 

C  THEATRE  »<EAPONS  SYSTEMS  BASED  OF  DECREASES  IN  DIVISION,  SECTOR  I  JCIOOl 

C  AND  IHFATfR  ASSETS  SUCH  AS  WEAPONS  SYSTEMS,  SAM  SYSTEMS,  55M  I  JCIOOl 

C  SYSU  MS  ,  AND  A  IRDASLS  I  JCIOOl 

C  '  I  JCIDOI 

REAL  NSUTD,NTSUDT,INTDA,INTDE,INTDS  I  JCIDDI 


C0MM0N/38B/ 

#9 9000 90 90090 900 00 0000990009099900 90 90 90 9909000 90990090999999999 99 90 99 99 99 0099 


COMHON/TNFSCI/ INABF(8,2) rINABR (8 ,2), INABZCZ) 
.C0MMCN/TNFSC2/NC3SD(2)  ,XC3SD(8,2I  ,YC3SDC8,2I  , 

«  FDDSAD(8r2I,FSDSAD(8  ,2 1 ,F TOS AD ( 8 ,2  I , 

®  FAaDCC(2l ,ABSFCCC8,2),A8SRCCC8,2I,ABC2CCt2), 

®  FSSMCC(2) ,TSSMIR(8,2I,SSSMIMC8,2I,SSSMILC8,2I , 

•  FSAncC(2) ,TSAMIR(3,2),TSAMI2C2I  ,SSAMIF(3,2I 
COMMOM/TNFSC3/NC3DD (21 ,XC3DD (8 ,21 , YC3D0C8,2I , 

o  NCOMD (2) ,XCDMD (8  ,2) ,YC0MDi8,2)  , 

«  FCLWL(I0,2) 

C0MMON/TNFSC4/NCDLY (2) ,X EDL Y ( 8 ,2 1 , YE DLY 1 8 ,2 , 2 1 , 
o  JESC(8,3,2I,IWAUT(8,2I ,IFPLS(8,2I, 

o  TEOPD (21 ,SEQPDI8  ,21 ,CT IME(8,2I 

REAL08  ASTYF(3) 

DIMENSION  ASIDE(2) 

DATA  ASTYP,ASIDE/*DIVISION%*SECTOR  ■, 'THEATRE  ', 'BLUE 'RED  '/ 
HOT=JCON 
00  2  L=I,2 
TEOPD(L)sO  . 

2  CONTINUE 

00  S  IS^I.NS 
NRR  =  D 
ND2  =  0 

00  10  L=l,2 
NWS=NK(L) 

NRT:NR(L  ) 

DO  15  IR*‘1,NRT 
IRT  =  IR4NRR 

if(is.le.nh5r(irt))goto  is 

15  CONTINUE 

WRITE  16, 90DD  I 

900D  FORMAT!*!* ,»NONRECDVERABLE  DATA  ERROR  -  SECTOR/REC 1  ON 

•  'INCOMPATIBILITY  IN  SUBROUTINE  OSDECM 
STOP 

IS  CONTINUE 

FI»FAaDCC(L) 

F2sFS5MCCCL) 

F3»FSAMCC(L) 

SUM=f 2«F3 


I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JcroDi 
I  JCIOOl 
I  JCIOOl 
1  JClODI 
1  JCIOOl 
I  JClODI 
1  JClODI 
1  JCIDOI 
1  JClODI 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JClODI 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIDDI 
I  JCIDDI 
1  JCIDDI 
1  JCIDDI 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
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lF(INACk(IS»L).GT.0.AN0.)NABZ)LUGT.0)G0T0  17 

I 

JCIOOI 

IF(IhAeR(l5fL).OT.O  .OR  .  INAB Z tL )  .GT  .0 ) GOTO  19 

I 

JCIOOI 

FJs^O. 

I 

JCIOOI 

F2*F2/5UM 

I 

JCIOOI 

F3*F3/5UK 

I 

JCIOOI 

GDTn  17 

I 

JCIOOI 

19 

FPFMFI 

I 

JCIOOI 

17 

fTD«0.5*FI«(ABSRCCn5iLMABCZCC)L)  l♦F20S5M5RS  « )  S  »l) /TSSM  )  Rf )  5 1 L 1  ♦  I 

JCIOOI 

• 

0.b*F3o(ALf(5RIl,)R,l)/TSAMlR)  IR  ,  L  )  ♦  ALR  5Z II  ,  L  ) /ISAM )  Z  (  L ))  I 

JCIOOI 

TfOPO(L)«TtLPOClMnO 

I 

JCIOOI 

FI *FABDCCIL) 

I 

JCIOOI 

F2»FS5MCCILI 

1 

JCIOOI 

F3=FSAMCC(LI 

1 

JCIOOI 

5UM=F2^F3 

1 

JCIOOI 

IFdNABFdS.LI  .CT.DICOTO  21 

I 

JCIOOI 

FI  *0. 

I 

JCIOOI 

F2«r2/5UM 

I 

JCIOOI 

F3»F3/iOM 

I 

JCIOOI 

21  E50*  F1<>AB5FCC  d5,L)  ♦  F3*BHR5  1 1 ,  IR,  L) /SSAM  I  F  f  IR.L  I 

4 

1 

JCIOOI 

»  0.5<>F2<»(S5MSFSd,IS,L)/S55MIMdS,L)4S5HSFS(2tlStL)/SSSMrLf  IS.m 

JCIOOI 

SEQPDdS»LdE5D 

1 

JCIOOI 

EDD=D. 

X 

JCIOOI 

IFINDSdStL)  .tE.GICOTO  18 

1 

JCIOOI 

N01*1*ND2 

1 

JCIOOI 

ND2=ND2*NDSI I5,L) 

I 

JCIOOI 

DO  20  ID5=ND1»ND2 

I 

JCIOOI 

ID^IDLABAI IDS* I5I 

JCIOOI 

iTelTDdD) 

I 

JCIOOI 

DO  22  Il^  =  l»NWS 

I 

JCIOOI 

TOEH*TWDdK,IT) 

I 

JCIOOI 

iFdOEW.OT.O.)  EDDB^E00«FCLWLdW«L)«VDIVClV»}01/T0FH 

1 

JCIOOI 

22 

CONTINUE 

I 

JCIOOI 

20 

CONTINUE 

I 

JCIOOI 

EDD^EDD/NDSdStL) 

I 

JCIOOI 

IB 

CONTINUE 

I 

JCIOOI 

EDD=5QRT (E0D«E5DI 

1 

JCIOOI 

CALL  CVFWINC3S0(LI«XC3S0(1 »L 1 » YC3SDC 1 » L 1 t EOD »SDEG 1 

I 

JCIOOI 

FDDSADdStD^SOEG 

JCIOOI 

CALL  CVFHtNC3SD(LI  »XC3S0  (1  »L)  tYCaSDUtLI  tESOtSOEGl 

1 

JCIOOI 

FSDSADdSf  LI=SOEG 

I 

JCIOOI 

CALL  CVFWINC3SD(L)»XC3S0d»L  1,YC350(1»L1  »ETD,SOEGI 

I 

JCIOOI 

FTDSADI  iSiLdSDEG 

I 

JCIOOI 

NRR^NNR  +  NR (L  ) 

I 

JCIOOI 

10 

CONTINUE 

1 

JCIOOI 

5 

CONTINUE 

1 

JCIOOI 

DO  3  L=l,2 

1 

JCIOOI 

TEQPO(L)*TEQPD(LI/NS 

) 

JCIOOI 

3 

CONTINUE 

1 

JCIOOI 

IFdPRS-NE  .IIGDTO  50 

1 

JCIOOI 

WR1TECKDT,1D0I  ICYCLE.INCYL 

r 

JCIOOI 

DO  AO  L=l»2 

I 

JCIOOI 

WRITECMOTt 101) ASIDE (LI »( lStIS«ltNSl 

1 

JCIOOI 

WRITE  (MOT,  102)  ASTYPdl  ,(FDD5A0(IS«L)»IS«1»NS) 

I 

JC  1001 

KRITE(MDT,I02IASTYP(2) ,(FSDSA0(I5,L1,IS«1,NS) 

I 

JCIOOI 

WRITE  tH0T,l02)ASTYP I3I , IFTDSA0(1S,L1  ,1S«1,NS1 

I 

JCIOOI 

WRITE(M0T,1D3I 

I 

JCIOOI 

40 

CONTINUE 

I 

JCIOOI 

50 

RETURN 

I 

JCIOOI 

100 

FORMAT! ,*T ABLE  N2A  C YCL E • ,2X » 14 , I BX, •DELIVERY 

SYSTEM  *, 

1 

JCIOOI 

•  •OECRADATIUN  FACTORS  DUE  TO  CCC  0  EGRAO  ATION  VlOX ,  • 

SUBCYCLE* , 

I 

JCIOOI 

»2X,|A/IX,I I9IIH-1) 

I 

JCIOOI 

toi 

FORMAT  I  ‘OSAA,  *  SI  D  E  • ,  5X  ,  •  5  E  CTOR  * ,  6X  ,8  1 1 2,  flX ) /51  2H 

-)) 

I 

JCIOOI 

102 

FaRMATro*,A8,*  SY  5  T  EM  * ,  8X  ,  8  IF  7.3 , 3X ) ) 

X 

JCIOOI 

103 

F0RMAT1////1 

I 

JCIOOI 

END 

X 

JCIOOI 

50 


n  n  n  o 
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SUBROUTINE  NUCCCO  I  JClOOl 

JCIOOl 

NUCCCO  DETERMINES  THE  Co*3/0  FACTORS  FOR  AIR8ASE  ASSETS  AT  THE  I  JCIOOl 

ENO  OF  EACH  NUCLEAR  /  CHEMICAL  SUBCYCLE  I  JCIOOl 

JCIOOl 

REAL  NSUTO.NTSUOT.INTOA, INTOE, INTOS  1  JCIOOl 


C0MM0N/8B8/ 


COMMUN/TNFSCl/lNABF 18 ,2 1 , 1 NA8R 18 ,2  )  , 1NA8 Z 12 ) 
C0MMCN/TNFSC2/NC3S0(2I , XC3S0 (8 ,2 ) , YC3S0 1 8 ,2  I , 

•  FOOSA018,2),FSOSAO(B,2),FTOSAO<8,2I, 

•  FA8I)CC12)  .ABSFCC  18,21,  ABSRCCl  8,21,  A8CZCC  (2), 

•  FSSMCC12),TSSMIR1B,2).SSSMIM18,2I,SSSMIL(8,2), 

•  FSAMCCI?) ,TSAM1R(3,2),TSAH1Z(2) ,SSAH1F(3,2) 
C0MM0N/TNFSC3/NC30D (21 ,XC300(8 ,2  I , YC300f 8 , 2 1 , 

•  NC0MD(2I ,XC0M0(8,2) ,YC0M0{B,2I , 

•  FCLWl (10,2) 

REAL*8  ATYP(3) 

01  MENS  1  UN  NNA8F(8,21,NNA8R18,2),NNABZ12I,10PTH(71 ,ISI0(7) 
DIMENSION  AS10E12) 

DATA  ATYP/ »FORKARO  »,*  REAR  *,»  COMMZ  •/ 

DATA  ASIOE/*DLUE 'REO  •/ 

DATA  NNA8F  ,NNA8R  ,NNA8Z/3A«0/ 
data  IOPTH  /3, 2, 1,4, 1,2, 3/ 

DATA  ISIO  /2, 2, 2, 0,1,1 ,1/ 

MOT* JCON 
00  2  L<^I,2 
NNABZ (L 1 >0 
ABCZCC(L  1«^0. 

00  3  1S*I,NS 
NNABF11S,L 1=0 
NNA8RtlS,L)=0 
ABSFCC( IS,L)*0. 

A8SRCC1 IS,L)*0. 

3  CONTINUE 

2  CONTINUE 

CALL  TAG1NBA,NS, 1A5AS,NOFA8,NORAB,  I5TAT) 

00  9  1=1, NA8 
IW0R0(13,I 1*100 
1W0R0(14,1  1*100 
10C  =  IAF8A1  1  ) 

1S=M0D(LCC-1,NS)^1 
IST*1S7AT1 LCCl 
L*1SI01 1ST  I 
M*IOPTH(IST) 

GO  TU  lb, 7, 8, 9), M 

€  OEGSRF,R,C  *  DEGRADED  OPERATING  CAPABILITY  PER  NOTIONAL  BASE 
C  (raKWAKU,REAK  OR  COMMZ)  «  SUM  OF  OP.  CAP.  OF  ACTUAL  BASES  IN 
C  SECIUk  DIVIOfU  BY  NO.  ACTUAL  BASES 

6  A&SFCC(IS,L)<ABSFCC{1S.L)40CNUC(1) 

NNA8F1IS,L)*NNABF(]S,L)'*I 

G0TU9 

7  ABSRCC()S,L)*ABSRCC()S,L)»OCNUC(n 
NNAnkilS,L  )  =  NNABR(]S,L')«) 

GUTU9 

8  ABC2CC(L)*ABCZCClL)^0CNUCtl  ) 

NNAaZlL)*NNABZlL)«l 

9  CONTINUE 


1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl' 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
]  JCIOOl 
)  JCIOOl 
1  JClOO! 

1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JllOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


00  5  L=l,2 
00  4  1S»1,NS 
IFllCYCLE.CT.l IGOTD  10 
INABFC1S,L)*NNABF(1S,L1 
1NA8R(1S,L1=NNABR11S,L1 
INA82(LI  =NNADZ(L1 
10  CONTINUE 

Ih  (  INAIU  1  I  S,L  I  .Lt  lABSFCC  <  1S,L)»0. 

IF ( INABKCl S,L1  .LE . 0  I A8 SRCC ( 1 S ,L 1 «0  . 

1F1NNA8F( 1 S,L1 .GT .0  I A8SFCC ( 1 S ,LI »A8SFCC f 1 S ,L ) /NNA8F ( 1 S  ,L ) 
1F1NNA8R(1S,LI •GT.0lA8SRCC{lS,Ll»A8SRCC(IS,L)/NNABR(lStL) 
4  CONTINUE 


1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
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IFIINA82(LI.LE .0IA3C2CC(LI*0. 

IF (NNA82ILJ .GT .0  I AB CZCC ( L I  * ABC2CC ( LI /NNA8 Zt L I 
5  CONTINUE 

iFdPRS.NE  .1  IGOTO  2D 
WRITE IMOTtlDOI  ICYCLE,INCYL 
00  ^40  L  =  l*2 

WRITE (HUTf IDIIASIOEILI f ( IStlS*lfN5I 

WRITE(K0T,ID2IATYP(I W((NNA8FlI5,LI,AB5FCCtI5,LII,IS=lfNSI 
WRIT£(.MCT,102IATYP(2I,(lNNADR(I5,LlfAB5RCC(ISfLn,IS  =  lfN5I 
WRITEIKOT,102IATYP(3I,NNA8Z(LI fABCZCCiLl 
40  CONTINUE 

20  CONTINUE 

RETURN 

IDO  FORKATI  M*»»TABLE  Q1  CYCL E  S2X,  24 , 18X, »A I RBASE  DEGRAOATION  ** 

•  'FACTORS  •/ 10  X,  »5UBCYCLE»  ,2X,  I4/lX,ll9ClH-n 

101  FORMAK 'O' »A4.  •  SI  OE  ' ,  5X  , ’SECTOR  S  YX ,  8  C 1 2 ,  lOX  I/S  ( 2H  -I,13X, 

•  B( '«’,2X,'DE&RADE0  Ml 

102  FORMAT! *0 M AB . ' A IRB ASE S ’ *6X , 8 ( 12 ,2X, F5.3 ,3X I  I 
ENO 


I  JCIOOl 
I  JCIODl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIODl 
I  JCIOOl 
I  JCIDDl 
I  JCIDOl 
I  JCIDOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIODl 


FUNCTION  NWHINVdWCflWSyRI  YD  tlPOStlStL*  IFLAGI 
C 

c 

C  ROUTINE  ESTABLISHES  THE  CURRENT  INVENTORY  FOR  KIYD  YIELDS  FOR 

C  EACH  WEAPON  CATEGORY  IN  POSITION  IPOS  IN  SECTOR  IS  FOR  SIOE-L, 

C  IT  ALSO  establishes  THE  MAXIMUM  NUMBER  OF  ROUNDS  WHICH  CAN  BE 

C  FIREO  FROM  A  GIVEN  POSITION  ANO  RETURNS  THE  SMALLER  OF  THE 

C  TWO  VALUES  AS  THE  NUMBER  OF  ROUNDS  AVAILABLE. 

C  FUNCTION  NWHINV  IS  CALLED  BY  NUCWP5  AND  PREYLD. 

C 

c 

C  09  0*0  09  006  000»00  090000 

C 

REAL  NSUTD,NTSUOT,INTDA,INTOE,INTOS 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


C0MM0N/8BB/ 


C0MMCN/LUCAL1/AIHC(3I tASlOEI2l tNlWAS,NNlHAS(21 tNPT (7 t4 t30 I t 
X  lKLID5(10D,2ldWLC0T  ( I  00 , 2 1  .  I  HLTZN  ( 100  f  2  I 

1  ,IWLTLadDO,2ItIWLBT(100,2UIWL(100,2l«WLYLD(100,2) 
X  «XIWY(42*2I tKIWYF (42«2I  ,KIWYL (42t2l tNNY0S(2l 

2  ,WLCEP(  100,21  ,I  HLHO6d00,2I 
COMKON/LOCAAl/NSFRO (4,2,21 ,NSFRS ( 5 ,2 , 2 1 , 

1  NSFRr(S,2,2l ,N0T 

C0MMDN/AFSTF2/  AF0IM(22,4I 

COMKON/TNFSC2/NC3SD(2I , XC3 SD ( 8 ,2 1 , YC3S0 C8 ,2  I , 

«  F0DSAD(B,2I,FSDSA0(B  ,21  ,FTDSAD(8,2I , 

•  FAB0CC(2I ,A8SFCC(B ,2  I . ABSRCC ( B , 2 1 , ABCZCC 1 2 1 , 

*  FSSMCC(2I ,TSSMIR(8,2l,SSSMIM(e,2I.SSSMlLC8,2I, 

»  FSAMCC(2I ,TSAHIR(3,2),T5AMIZ(2),SSAKIF(3,2) 

C 

C  CHECK  FOR  MULTIPLE  YIELD 

C 

IY0«KIYD 

IF  d0LYL0(  IWC,  IWSf  LI  .EQ.II  lYD^l 
LlSsL*2*dS-ll 
C 

C  DETERMINE  WEAPON  CATEGORY 

C 

GO  TO  (100,200,3001  ,IWC 

c 

C  OIVISIQN  WEAPON  SYSTEMS 

C 

100  NWHINV^N0WH0(IWS,IYD,LISI«F0SP0S(1W5,1P0S,L) 

IF(IFLAG.E0.2I  RETURN 

c 

NNWFIR  *  NOHSI  (lWS,IS,LI*F0SP0SdWS,lP0S,L>«KNFR0dW5,Ll* 

♦  F0DSA0(IS,LI  -  NSFRDdWS,IPOS,LI 
IF(NNWFIR  .LT.  NWHINVl  NWHINV  »  NNWFIR 


I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIDOl 


C  JCIOOl 
C  JCIOOl 
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C 

RETURN 

C 

c  sector  weapon  systems 
c 

200  NWH JNV=N5WHS( J WS.I YOfLI S)»r55POS() W5 ,IPOS,L ) 
in  1ELAG.EC.2}  RETURN 
C 

NNWFIR  =  NSWSI (lHSt)SfL)»FSSPDS(lWSf)PQS»LI»HNFRS(lKStLI* 

•  FSOSAOiJSfL)  -  N5FR5(IW5,IPOS,L) 

IFCNNWFIR  .LT.  NWHINV)  NKHINV  *  flNKFIR 

C 

RETURN 

C 

C  THEATER  WEAPON  SYSTEMS 
C 

300  NWH 1NV*NTWHT ( I W5  *  I  YD . L  J • FT 5P0S ( I WS  »I P05  t L J 
IF { IFLAC.E0.2J  RETURN 
C 

NNHFIR  =  NTWSI tIWS»I5,L JoFT5P05tIW5,IP05,L)*MNFRTCIWS,LI* 

•  FTOSAOtISfLJ  -  NSFRTtIWSfIPOSfL) 

IFtNNWFIR  .LT.  NWHINVJ  NWHINV  *  NNWFIR 

C 

RETURN 

C 

END 


Subroutine  DAMEVL 


00  775  lAT  =  I ,7 
C 

C . ...GET  NUMBER  OF  SHELTERED  ANO  UNSHELTERED  A/C  OF  TYPE  lAT  IN 

C  PARKING  AREA  IPR  IN  ORDER  TO  CALCULATE  ACTUAL  AIRCRAFT  ANO 

C  SHELTER  KILLS. 

C 

RSH=0. 

NSUM*0 

00  750  IATT=I,7 

750  )F( IPSHLAI IATT,LI.LT.IPSHLA(rAT*L)  I  NSUM=NSUH+NACTPA( IATT,IPR) 

IFINSUM.GT.NSHPAdPR))  GO  TO  755 
RSH  =MINO(NSHPAtIPRl-NSUM,NACTPAt  lATfIPR)) 

755  RNUSH  *  FLOAT(NACTPAtIAT,IPRn-  RSH 

APOMCIATJ  *  APDMtIAT)  ^  RNUSH^DAMM  (JPA ) 

APOM  (lAT  )»APOM  tIAT  MRSH^OAMSIJPA) 

APOHM(IAT)  s  APOMMtIAT)  ♦  RNUSH* (0 AHH t JP A )  -  OAHACUPAI) 
APOMTUATJ  «^APOMTtIAT)^RNUSH*OAMA(JPA)  +  RSH*OAMS(JPA) 


775  continue 

•  C  SHELTERS  DESTROYED 

SHDK  SHDM  DAMStJPAJ*FLOATtNSHPA(lPRn 
SHOMT  ^  SHDMT  ♦  DAMS ( JP A  )*FLOAT t NSHP A 1 1  PR) ) 

7B0  continue 
790  continue 

ARHLF  =  20000000. 

OLKLC  »  ARC/ARHLF 
iFtOLKLC  .GT.  1.)  OLKLC  =  I. 

C  this  IS  NECESSARY  SINCE  LETHAL  AREA. MAY  COVER  MORE  THAN  AIRFIELD 
OLKLC  =  OLKLC*ARHLF*POENSS/IOOOOOO. 

CCTEM.  «  CCTEH  ♦  ARC*PDENSS/1 000000 . 

CFTEM  CFtEM  4  ARL*POE  NSS/1 000000 . 

C 

C . PRINT  A  SUMMARY  OF  DAMAGE  INFLICTEO- 

C 

IFCIPRS  .NE.  I  I  CO  TO  6016 

WRITE(1NU,6015)  lAB »0LK L L» OLKLC » ( A PDH 1 1  ACT ) » I  ACT • 1*7  I , SHOH t 
•  TMPLOW 

6016  continue 

c 

C . UPDATE  NUMBERS  OF  A/C  SHELTERS  ANO  PEOPLE  ON  AIRBASES 

C 


C  JCIOOI 
C  JCIOOI 


C  JCIOOl 
C  JCIOOl 


C  CJIOOl 


I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
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OU  eiO  1AT»1,7 

IrfORDC )AT, lAB) «)WOROC)AT,1AB)-1FIXIAPDMIIAT) ) 
IF ()kORD(IATtlAB).Lr.D)  IMDRO ( I  AT » IA8 ) >0 
610  CONTINUE 

l»ORD(lltlA8l-lWORD(ll»lA3)'lFlX(SHOK) 
IFllWORDdl,  lABl.LT.D)  1  WORD  1 1 1»  1 A  8 ) 


IkORDllZtlABI^lWOROdZtlABI-IFIXlOLKLL)  I  JCIOOX 

lF(lUGRDeW»lAn).LT.D)  1  WORD  C12 1  1 A  B)  1  JClOOl 

iniPML  -LT.  0.0001)  GO  TU  811 
TEMP= IWOROlIi,  lAB) 

UUROdi.)  Ab)  =  7).KP*l  I.-OLKLL/TFML  )  * 

811  CONdNUE 

C  CALCULATE  CAPABILITY  OF  AIRBASE  INOEXEO  BY  lAD  I  JClOOl 

TEHPdkURDlIif  lAb)  I  JClOOl 

TEMP«l.-TEMP/lOO.  1  JClOOl 

CALL  CVFW(N0CDPC(L2),X0CDPd,L2),YDCDPd,L2)fTEMP,PD^G)  I  JClOOl 

ABDEG^AHlNllPDEGtTHPLOW)  1  JClOOl 

OCNUCl  lABI  «OCNUC  IiaBPABOEG  1  JClOOl 

DO  812  lAT  .*  1,7 

CADAHdAT,L2)  ^  C  AD  AM  1 1  AT  ,  L2  )  ♦  APDKMCIATI 

812  CONTINUE 
220  CONTINUE 


C  END  OF  DO-LOOP  ON  NUCLEAR  FIRE  MISSION  I  8ECUN  IN  SECTION  300 

II  (NAIM  .r  U.  0  1  (.0  TO  22  1 
C  uroAi  1  1(11  Ai> 

TCANAKJSfL2)  *  TC  ANAF  I JS  ,L2  I  4  OLKLLT 
DO  813  lAC  *  lf7 

TDSNACIIAC  ,JS,L2)  «  TDSN AC (1  AC  ,  JS  ,  L2 )  ♦  APDMTIIAC) 

TDHNACdAC  •JS,L2I  =  TOHN  AC  d  AC  r  JS  ,  L2  )  4  APOKHlIACI 
813  CONTINUE 

TDSNASl JStL2I  *  TO SNAS X JS, L2  I  4  SHDMT 
IFIIPRS  .NE.  1)  GO  TO  6021 

WRITEtlNO, 60201  OLKLLT,  ( APDMT d ACT ) , I ACT  «  l.TItSHDKT 
6021  CONTINUE 

221  continue 
C 


A- 3,  NUCLEAR  ESCALATION  DELAY 


This  section  completely  lists  subroutine  EDELAY,  in  v^ich  the  delay 
in  the  preferred  nuclear  escalation  state  is  determined,  and  subroutine 
NUC1,  which  calls  EDELAY, 


SUBROUTINE  EDELAY 

c 

C 

C  ROUTINE  DETERMINES  THE  PROPOSED  AND  CURRENT  STATE  OF  NUCLEAR 

C  ESCALATION  AND  THE  DELAY  TIKE  BEFORE  THE  PROPOSED  STATE  CAN  BE 

C  ACTIVATED. 

C 

C  •••444O44#44#4»«404»»40  400  4,r44  4900  040»»»»4»«*000»*«*«4««400044 

C 

REAL  NSUTD .NTSUDT, I NTD A , INTO E , INT 0 S 


CDMM0N/BB8/ 

OO OOOO OO OOOOOOOO OOOOOO 00040 000 00 00 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 0000000004 


C0MK0N/TNFSC<,/NEDLY(2)  tXEDLY(8,2)  •YEDLY(8,2,2)  ,  1  JClOOl 

•  jESC(8t3,2),IWAUT(6»2),IFPLSt8,2)f  I  JClOOl 

•  TEQPD12I,SEQPD(8,2),CTIME(8,2I  I  JClOOl 

REAL^B  A0UT(8I ,ANQNE,ADELAY,APRES  1  JClOOl 

REAL4<i  A51DE12  ),DT1ME(8I  ,CQMMQ18)  1  JClOOl 

DATA  AN0NE,ADELAY,APRES/'  NONE  DELAYED*,'  PRESENT'/  I  JCIODI 

DATA  ASIDE/'BLUE  •t'RED  '/  1  JClOOl 
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INOs JCUN 

1 

JCIOOl 

IF (IPRS.NE  .0IWR1TE(IN0.90001ICYCLE»INCYL»II5»IS«1»N5) 

1 

JClOOl 

00  ICOO  L=l»2 

I 

JCIOOl 

00  1200  IS^ltNS 

I 

JCIOOl 

OELAY=0. 

1 

JCIOOl 

CDEG=SORT|TEQPOIL)*SEQPOC15,L) ) 

JCIOOl 

CDMMD(1S)-CDE& 

I 

JCIOOl 

00  1205  nc*i,3 

1 

JCIOOl 

1F(JE5C( ISt)TC.LI.LT.0.0R.JE5CilS»lTC»LI.GE.)ESC(15»lTC»Ll| 

) 

JCIOOl 

•GOTO  1205 

I 

JCIOOl 

1TMP=)E5C()S.1TC,L) 

1 

JCIOOl 

IFUESCdS.ITC.L  ).ME.0)1TMP  =  -1TKP 

1 

JCIOOl 

JESCI  1S»  ITC.L)  =lTliP 

r 

JCIOOl 

IZOS 

1ESCI)S.1TC.L)=0 

4 

JCIOOl 

iFdWAUTdSfL)  .NE.D)G0T0  1215 

I 

JCIOOl 

00  12)0  ITC=1»3 

I 

JCIOOl 

IFlJE5Cd5.1TC»L).Ne.O)GOTO  1220 

I 

JCIOOl 

1210 

CONTINUE 

1 

JCIOOl 

CT  IME  dS.L  )*0. 

I 

JCIOOl 

DTIMEdSI«0- 

I 

JCIOOl 

GOTD  1200 

I 

JCIOOl 

1220 

UAUTdS.L)  =  l 

1 

JCIOOl 

CTIMCdS.LdO. 

1 

JCIOOl 

X2X5 

IFdFPLSIlS.L)  .NE.O)GDTO  1225 

JCIOOl 

CALL  CVFWiNEOL Y(L) .XEDLYCl .L ) , YEOL Y( 1 , X ,L X , COEG ,OEL AV) 

I 

JCIOOl 

GOTO  1230 

) 

JCIOOl 

IZ2S 

CALL  CVFW(NEDLY(L1»XE0LY(1»L  ),YEOLY(l»2vL)»COEG«OELAY) 

I 

JOOOl 

X230 

CT  IHtdS.L  )«CT  IMEdS.L)4l2./NN5C 

I 

JCIOOl 

DT  IML  d5)>  01  LAY 

1 

JCIOOl 

)F(OtLAY.GT.CT)MEdS,L))GOTO  1200 

1 

JCIOOl 

00  1235  )TCd43 

I 

JCIOOl 

lESCdSt  irCtL)  OAdSt  JESCCIS.  ITCtLll 

1 

JCIOOl 

X235 

JEiCdS,  lTC,L)-0 

1 

JCIOOl 

IWAJTdSfL  )>0 

1 

JCIOOl 

IFPLSdS.Ldl 

I 

JCIOOl 

1200 

continue 

1 

JCIOOl 

)f  dPkS.(0.0)G(ITCl  1000 

1 

JOOOl 

MkdL  ()NU,90U5)AS10L(L) 

) 

JCIOOl 

00  1020  1S>1»N5 

1 

JCIOOl 

AOUTIISI^ANONE 

1 

JCIOOl 

IFdWAUTdStL)  .EO.OIGOTD  1015 

1 

JCIOOl 

AOUT  dS)  =AOELAY 

I 

JCIOOl 

GOTO  1020  . 

X 

JCIOOl 

X015 

00  1016  ITC=lt3 

1 

JCIOOl 

IFdESCdStlTCtD.NE.OlGOTO  lOlB 

) 

JCIOOl 

10X& 

CONTINUE 

t 

JCIOOl 

GOTO  1020 

1 

JCIOOl 

lOlB 

ADUTdS)*^APR£S 

1 

JCIOOl 

X020 

CONTINUE 

1 

JCIOOl 

WRITE  ( I  NO 1 9001  I  (AOUT (15) .15-1.N51 

1 

JC  1001 

WR  UF  d  NO.  *3002  I  (CT  IMF  d  S.L  )  .  IS^l  .NSl 

I 

JC 1001 

WR  IT  L  dNU»9003I  (DT  IhL  (15)  »15»1  tN5I 

1 

JCIOOl 

WRITE (IN0t900A l(C0iH0(I5I. 15»1 tN5I 

I 

JCIOOl 

1000 

CONTINUE 

I 

JCIOOl 

9000 

F0RMAT(////1X, nAdLE  NAA  CYCLE  » *  1 9 ,5X , 'OEL AYEO  ESCALATION 

•/XOX.I 

JCIOOl 

••5UBCYCLE  • .lA/lX, 119(1H"I//7X, *5EC70R»f5X,8 ill.9X)/l 

I 

JCIOOl 

9001 

F0RMAT(1X,»  E5CL  5TATU5  M0(A8,2XII 

1 

JCIOOl 

9002 

FORMATdX, ’CURRENT  TIME  M0(F8.1.2X)) 

) 

JCIOOl 

9003 

FORMATdX,*  OELAY  TIME  •  1 0  (F  8 . 1 . 2X  1 ) 

1 

JCIOOl 

9D04 

FORMAT ( 1X» ’COMMO  OEGRAO  *  10 ( F8 .4 . 2X ) ) 

I 

JCIOOl 

9005 

FORMAT! ’O’ »A4.  •  51DE*/5(2H  -1) 

I 

JCIOOl 

RETURN 

C 

ENO 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  NUCX 


SECONDARY  CALLING  PROGRAM  FOR  THC  ROUTINES  WHICH 
DETERMINE  NUCLEAR  ESCALATION  STATES,  DETERMINE 
THE  NUMBER  OF  NUCLEAR  WEAPON  SYSTEMS,  AND  REALLOCATES 
STOCKS  DF  NUCLEAR  WARHEADS  TO  SUPPLY  POOLS. 

SUBROUTINE  NUC I  IS  CALLED  BY  NUC  AND  CALLS  THE 
FOLLOWING  ROUTINES  ESCLAT,  NDSYIN  AND  WHINUP. 

REAL  NSUTD,NTSUDT,INTDA,INTDE,INTDS 


99000»«»»»»»O»99999»»99999»99999»»»»«»»»»9»»»O»»»»O»»O»0»»«»««9###9900#»000«**O# 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


COMMON/BEB/ 

99999999999 9909 99 99 90999099 99 99 99 99 9999999999 999999999999 •#•••• 

CQHMON/LQC ALl/ A1hCC3),AS  IDE(2)  ,N IW AS,NN 1  MAS ( 2 ) ,NPT 1 7 ,4 ,30 1 , 

X  lULlD S (100,2 )  ,1WLC0T  ( 1 00 , 2 ) , I WLTZN (  100 t2 ) 

1  ,IMLTL0( 100,2) , IWLBT( 100,2) ,1WL( 100,2 ) ,WLYL0 (100, 2) 

X  ,XIWY(42,2),KIWYF(42,2) , K I W YL ( 4 2 , 2 } , NN YDS ( 2 1 

2  ,WLCEP(100,2)  ,IWLH0B(200,2) 

COMMON/LOCAAl/NSFRO (4,2,2) ,NSF RSI  5,2,2 1 , 

1  NSFRTC5,2,2) ,NOT 

C0MH0N/AFSTF2/  AFDIM(22,4 ) 

1S>KISS 


DETERMINE  ESCLATIDN  STATE 


CALL  ESCLAT 

DETERMINE  IF  THIS  CALL  WAS  ONLY  FDR  ESCLATION  STATES 
IF (KFLAG.EQ.2)  GO  TD  IDO 


DETERMINE  NUMBER  OF  NUCLEAR  DELIVERY  SYSTEMS 


CALL  EOELAY  I  JClOOl 

DO  ID  1S-1,NS 
'  DO  ID  1TC*1,3 
00  10  L-1,2 

lF(lESC(lS,nC,Ll*HL.O)  GO  TO  50 
10  CONTINUE 
GO  TO  100 
50  CONTINUE 
CALL  NDSYIN 


REALLOCATE  INVENTORY  OF  NUCLEAR  WARHEADS 


CALL  WHINUP 
C 

IDO  CONTINUE 
RETURN 
END 
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A-4.  TARGET  ACQUISITION  PROCESSING  DELAY 

This  section  partially  lists  subroutines  TARACA  and  TADPAR,  in  \^ich 
the  target  acquisition  parameters  for  active  and  reserve  division 
targets  are  determined. 


SUBROUTINE  TARACA 


TARACA  SIMULATES  ACQUISITION  OF  TARGETS  IN  THE  ACTIVE  BATTLE  AREA 
OF  A  GIVEN  SECTOR  BY  GROUNDt  ARKY-AIR  ANO  AIR  FORCE  SENSORS 
SENSORES  may  operate  in  standoff  IFIXEO  OR  VERTICAL),  STANOOFF 
(MOVING!  OR  PENETRATING  MODE 

SENSORS  KAY  BE  CONTINUOUSLY  OPERATING  OR  GLIMPSE  SENSORS 
CALLED  BY  TARACQ 
CALLS  TARACE 


REAL  NSUT0,NTSU0T, INTOA, INTDE, INTOS 
COMMON/3BB/ 

COMMON/TNFSCl/  INABF (8,21 ,]NA8R(8,2] , XNA6ZC2I 
C0MM0N/TNF5C2/NC3SD (21 , XC3 SD  (8  ,2  I , YC35D ( 8 , 2 1  , 
o  FDDSAD(8,2), FSDSAD(8  ,21 ,FTDSAD  18,21  , 

•  FA8DCC(2I ,A8SFCC(8.2I.ABSRCC(8,2I,ABCZCC(21» 

«  FSSMCC(2] ,TSSM]R(8,2),SSSK]M(8,21,SS5HIL(8,2I, 

•  F5AMCC(2) ,TSAKlR(3,2»,TSAMI2i2I ,5SAM1F(3.2I 
COMMON/TNFSC3/NC3DD (2) ,XC3DD (8,21, YC 300(8, 21 , 

•  NCOMD (2) ,XC0MD (8 ,21 ,YC0M0(8,2I , 

•  FCLWL(10,21 
COMMON/TNFSCA/NEDLY (2) ,XEDLY (8,21  ,  YE DLY ( 8 ,2 , 2  1  • 

«  JESC (8,3,21 , 1WAUT(8,21 ,IFPLS(8,21, 

o  TE0PD(2) ,SE0P0(8,21 ,CT1KE(8,2) 

COMMON/TNFSCS/NGSFD (2) ,XGSF0(8  ,2 1  ,  YGSFD ( 8 , 2 1  , 
o  .NAAf  D  (2)  ,XAAFD  (8  ,21  ,  YAAFD(8,2I  , 

•  NAFF0(2) ,XAFFD(8,2I, YAFFD(8,2I 
C0MM0N/LCCAL3/  JS 

C 

C  THESE  ARE  WORKING  VARIABLES  TARGET  ACQUISTION  NEEDS  ONLY. 

COMMON  /Taco/  V1STWZ(A0,11  1,CE1TWZ«»D,111,RVL0ST(6), 

1  IWZBAdlZl,  KTERTA(112) 

DIMENSION  PCSDT(7,A,30I ,PDSZ0S(7,4,30I *  GAP  1 2 1 , ASlOE (2 1 
LOGICAL^l  LJCI  (A1,.HJCI  (4) 

.  EOUl  VALENCE(LJC1  (I  )  ,TJCr  ),  (MJCKl )  ,I  JCI  I 

OATA  ASIDE/'SLUE  •, 'RED  V  1  JClOOl 

ClOO)  INITIALIZE  WORKING  VARIABLES 

IJCI «0 
FNNSC^l  . 

N2«0 

DO  6  in  fZ 
NI  O^N2 

N2=N2«NDS( JS,L) 

N3eNSU(L) 

N4»NZ(L) 

IF (IUTAM.EQ.I)  go  to  4 

C....  TARGET  ACQUISITION  MODEL  NOT  USED,  DETECTION  PR0B»,  SENSOR  ERROR 
C  ANO  DELAY  TIKE  ARE  USER  INPUT 

DU  3  I0S-NI,N2 
DO  3  iSUd  ,N3 
00  3  IZ«I ,N4 

PSZDDS( ISU,IZ,lDS)-PSZD(lSUf IZfl) 


I  JClOOl 
I  JClOOl 
I  JClOOl 
1  JClOOl 
I  JClOOl 
1  JClOOl 
1  JClOOl 
I  JClOOl 
1  JClOOl 
I  JClOOl 
1  JClOOl 
I  JClOOl 
I  JClOOl 
!  JClOOl 
I  JClOOl 
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NS^NZCl  1  I 

N6«NW(LI  I  JClOOl 

lJ«NDS(JS»n  1 
IJJ  =  NDS(JS»L1 

c 

C.*..  GIVEN  A  SENSING  AND  A  TARGET  DIVISION,  COMPUTE  DETECTION  FROB  FORI 
C  EACH  SENSOR  TYPE(IGS)  VS  EACH  SUBUNIT  TYPEIISUl  IN  EACH  ZONEtIZl 


21  ILI^IOLABAIlCTSDfJSI 

IFIL.EQ.2I  ILl*lOLABAIlCTSO*IJ,JS) 

ITI>ITD(IL1) 

C0MD=0.  1  JClOOl 

DO  211  IN«1,N6  1  JClOOl 

TOEWsTWOIIWtlTl)  I  JClOOl 

IFITOEV.GT .O.ICOHO«CaMO«FClWL(lW,l  )»UD IVCIW , III ) /TOEV  1  JClOOl 

211  CONTINUE  1  JClOOl 

call  CVFWINCOHOIL) tXCOHOIl ,1) ,YCOMD(l,L) ,C0M0,CCC0I  1  JClOOl 

CALL  CVFWtNGSFDtLl,XGSFDII ,L ) , YCSFO t 1 ,L ) , CCCO ,CflMD I  I  JClOOl 


C....  TSX  =  LOCATION  OF  SENSOR  CROUP 
TSX=TSX+ITFAC^OVWOTH(ITl I)/2. 

II  =  N0S(JS,1I  *  ICTTO 

iFtL  -EO.  2I  II  ICTTO 

IL2  >  lOLABAdCTTO,  JSI 

ITEMP  =  ICTTO  ♦  IJJ 

IFdI.EQ.  21  IL2  =  I0LABAI1TEMP,JS) 

lT2dT0IIL2I 

C....  DSX  «  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDGE 


C....  PASOT  *  PROBIPARTIC  SENSOR  ACQUIRES  FARTIC  TARGET  -  GLIMPSE) 

PASOT=l.-l  l.-POGE)«»tGLPGSdGS,Ll*TACLl 
C....  TEMP2  IS  PROBABILITY  OF  NON-OETECT ION  BY  ANY 

24  TEMP2  =  (1-PA50TI^«>TEMPI  I  JClOOl 

IFITEKP2.LT.1.E-I0)TEMP2=0.  I  JClOOl 

C....  SENSOR  OF  THIS  TYPE 

C....  TEMP2  ^  PROBING  TYPE  IGS  SENSORS  ACQUIRE  A  PARTICULAR  TARGET) 

C....  TEHP3  PROBtAT  LEAST  1  TYPE  IGS  SENSOR  ACQUIRES  A  PARTIC  TARGET) 

TEMP3«1 .-TEhP2 

C««**  PDSIOS  WILL  BE  USED  TO  COMPUTE  OVERALL  SENSOR  ERROR  AND  DELAY  TIME 
PDSZDSI  1SU,I  Z,  11  UPDSZDSd  SU,I  Z,ll  I^TEMPS 
C....  FIND  RUNNING  VALUE  OF  PROBABILITY  OF  NON  DETECTION 
C....  PCSOT  =  PROBING  SENSOR  OF  ANY  TYPE  ACQUIRES  A  PARTICULAR  TARGETl 
TJCI=PGSDT  (ISUtlZtlll 
IF (T JCl .EO.O. IGOTO  2401 
TJCl=TJCI«TEHP2 
IFITJCI -LT .1 .E-IOIT JCI=0. 

PGSDTIISU,IZ,I1I^TJCI 
2401  C0N1INUE 

DO  27  |RBST=I,NN 

IFIRANGE.LE.VHRBSTI  IRBSTfDI  GO  TO  28 
27  CONTINUE 


IReST*NN  1  JClOOl 

C . TAESZD  AND  TADSZD  CONTAIN  INTERMEDIATE  CALCULATIONS  FOR  SENSOR 

C  ERROR  AND  DELAY  TIKE 


28  TAESZDI  ISUtlZ,  ID  >  TAESZD  1 1 SU  ,  I Z,  11 )  «  tTEMP  3«T  ACGSR  t  IGS  , 

«>  IRBST,LII*«2 

TADSZOlISU,IZ,Il)>TAOSZOnSU,IZ,n  )«TEMP3*lTA0TG5nGS,LMC0M0) 

IF  I IPRD.EQ.O)  GO  TO  2S 

WRITEIJNUC,320I  DINTEG, RANGE 

WRITbl JNUC  ,330  I  IGS , IL 1 , ISU ,  IZ  ,1L2 

VRITE(JNUC,200I  PASOT, TEMPS 

25  CONTINUE 

OY  =  OYdPZOPTHl  IZ,II  l*0V0PTHlIT2)/2.) 

26  CUNTINUE 
30  CONTINUE 

IFllPkO.EQ.O)  GO  TO  31 
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C300)  target  ACCUISITION  BY  ARMY-AIR  SENSORS 
C 

C.*..  COMPUTE  DETECTION  PROB  FOR  EACH  SENSOR  TYPE! US)  ON  EACH  TYPE 
C  ARMY-AIR  CARRIERCIAC)  ON  EACH  MISSIONCIM-I  STANDOFF,  «2  PENETRA- 

C  TING)  VS  EACH  TYPE  SUBUNITOSU)  IN  EACH  ZONE(IZ)  OF  EACH  TARGET 

C  DIVISION(IDS) 

N7*NAAC(L) 

N3>NAS(L) 

NG*NDS( JS, II ) 

CEIT  =  CEITMZC ITT,IWZ) 

VIST^VISTWZC ITT, IMZ)/1000. 

CCC0  =  5EQPD  CJ5,L) 

CALL  CVFWCNAAFOIL) ,XAAF0 (1 ,L ) , YAAFD ( 1 ,L I ,CCC 0 , COHO ) 

C 

iterate  for  each  DIVISION 

DO  80  1DS«1,N6 

JDS^IDS 

IFIII.EQ.Z)  J0S=J0S4NDS(JS,L1 
IL2=lDLAeA(JDS,JS) 

IT2=  ITDI 1L2) 

C 

C....  ITERATE  FOR  EACH  TYPE  OF  ARMY  AIRCRAFT 
DO  77  lAAC*! .N7 

C....  PC  *  PROBCCEILING  >  SENSOR  ALTITUDE) 

PCsO. 

)F(AMOAACCIAAC,L).LE.CEITl  PC«1. 

C....  DSX  *  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDGE 
DSX» FOWL  AC M AAC,L)»DVWDTH( 1T21  ' 

C 

C....  iterate  over  model  type.  IK-1  IS  standoff  moving 

C  IM«2  IS  FCRKARD  AREA.  2K-3  IS  DEEP  AREA  WHICH  DOES  NOT 

C  APPLY  TO  DIVISIONS  IN  THE  ACTIVE  BATTLE  AREA- 

DO  71  IK*I,2 

C....  ASCP  -  NO.  OPERATIONAL  ARMY-AIR  CARRIERS  ON  MISSION  IH 

ASCP«(AACS( lAAC, JS,L)«AACDS( I A AC , J 5, L ) ) « f l-FR AAC 1 1 1 AAC ,L I) » 

•  PAACAMC1AAC,IK,L) 

C....  ASCD  IS  NUMBER  OF  AAC  AVAILABLE  ASSUME  I  SORTIE/CYCLE 
C  ADJUST  VALUES  BY  THE  VARIABLE  RAASDT  ARMY  AIRCRAFT 

C  H4VF  AIQPAriT  RFCW  »TTD»Tcn 

C....  UPDATE  RESULTS 

C....  PASDT  *  PROBIPARTIC  SENSOR  ACQUIRES  PARTIC  TARGET  -  GLIKPSE) 

PA5DT  =  I.  -  Cl.-POCE)**CGLPASCIAS,L)*TACL) 

C....  TEMP2  =  PROBCNO  TYPE  IAS  SENSOR  ACQUIRES  A  PARTICULAR  TARGET) 

6B  TEMP2=C 1 .-PASDT U^TEMPl 

IF  C  TEMP2.LT.I .E-lDITFMPZeO.  1 

C....  TEMP3  ==  PROBCAT  LEAST  I  US  SENSOR  ACQUIRES  A  PARTICULAR  TARCETI 
TEMP3=I --TEMP2 

PDSZDSI ISU,IZ, J0S)=P0SZ0StISU,IZ,J0S)«TEKP3 
TJCI-PCSDT  (IS'J,IZ,JDS) 

IFCTJCI.EQ.O.ICOTO  6801 

TJCI=TJCI»TEMP2 

IFCTJCI-LT.l.E-lDITJCUO. 

PGSDT (ISU, IZ,JDS)-T JCI 
6B0I  DO  71  IREST<^I,NN 

IF(RANCE.LE.VHRBST(1RBST,LI)  go  TO  72 

71  CONTINUE 

IRBST»NN  1 

72  TAESZDC  ISU,IZ,  JOS)  -  TAESZO I ISU,  IZ  ,JOS  )  «  CTEHP3*TACASR(  US, 


€ 

C400)  TARGET  ACQUISITION  BY  AIR  FORCE  SENSORS 
C 

C....  COMPUTE  DETECTION  PROB  FOR  EACH  SENSOR  TYPECIAFS)  ON  RECON  A/C  CN 
C  EACH  HISSION(IM)  VS  EACH  SUBUNIT  TYPEIISU)  IN  EACH  lONEllZ)  OF 

C  EACH  TARGET  0 1 VI  $  ION ( 1 0$ I 

NRUl  1 

NR2eNR(l)  1 


JCIOOI 

JClOOl 


JClDOl 


JCIOOI 


JCIOOI 

JCIOOI 
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IFlL.EQ.nGQTa  B09 
NR1*^NRI1  Ml  . 

NR2  =  N'RI1  MNR{2) 

809  DO  810  1RR«NR1»NR2 

IF  1J5.CE.NHSR1  IRRMCOTO  611 

810  CONTINUE 
UR  =  1 

811  NRMNLSRIIRRI 
NR2«NHSR11RR) 

CCCD=D. 

00  B12  1RR«NR1,NR2 

812  CCCD»CCCD«SEGPO( IRRtL) 

CCCD  =  CCCD/  INR2-NRMn 

CALL  CVFUINAFFDID.XAFFOCI  fL)  »YAFFD(1»LI  fCCCOfCOMO) 

N3=NAFS(L) 

C..*.  PC  ^  PROBICEILINC  >  SENSOR  ALII 
PC  =  D. 

IF lAMORAClL) .LE.CEITI  PC^l. 

00  95  IDS^ltNG 
JDS‘  IDS 

1FI1I.E0.2)  J0S-J0S4N0S(JSfL) 

1L2^1DLABA  UDS,JS) 

IT2»  ITDI IL2) 

C....  DSX  *  horizontal  distance,  sensors  to  target 

DSX  =  FDWLRA  IL)»DVk<DTHl  IT2  I 
DU  94  1 H  ,2 

IF (RACAHCJSi IH ,L).LT ..0001 1  CO  TO  9A 
C 

C....  AVAILABILITY  HAS  BEEN  ACCOUNTED  FOR  IN  COMPUTING  NUMBER  OF 
C  MISSION,  RACAM.  ATTRITION  FOR  PREVIOUS  CYCLE  IS  NOT  IN  RACAM 

C  SO  AN  ATTRITION  TERM  IS  NEEDED 

c...,  temp  s  no.  of  PECON  A/C 

TEMP -RACAM  ( JS,  IM,L  MCI  . -RAAF  RM 1 1 M  ,  L  MF  RLPMA  (  IM,L  1 1  ♦SRRAC  4L I /FNN  SC 
C 

c....  proceed  in  a  manner  exactly  analgous  to  the  previous  section 

DO  93  lAFSO  ,N3 
DY  *  0. 

IFCIM  .EG.  21  DY  ^  DRAFTCLI 
C....  TEMPI  *  NO.  OF  SENSORS  PER  TARGET  DIVISION 


C....  PASDT  =  PROBIPARTIC  SENSOR  ACQUIRES  PARTIC  TARGET  -  GLIHPSEI 
PASDT*1.-(1.-PD&EM*I&LPAFS(IAFS,LMTACLI 
BB  TEHP2  =  (  1  .-PASDT  TEMPI 

IF ITEMP2.LT.1.E-1DITEHP2=0. 

TEKP3*1 .-T EMP2 

PDSZOSI  1SU,1Z,  J0SMP0SZDS(lSU,UtJDSMTEMP3 

TJCMPGSOT  IISU,1Z,J0SI 

IFITJCI.EO.O.IGOTJ  B801 

TJCMTJCMTFMP2 

IF  ITJCl -LT  .1  .E-lDir  JCMO. 

PGSUTIISU,  IZ,JDSMTJCI 
8801  DO  91  IRbST^ltNN 

IFIRANGE.LE.VHRBSTI 1RBST,LII  GO  TO  92 

91  CONTINUE 
IRBST=NN. 

92  TAESZDC ISU ,IZ, JDSl  «  T AESZD ( I SU , IZ  , JDS M (TEMP3*TACAFRC 1 AF5 , IRB ST  , 
♦  LlM-2 

TADSZDI  1SU.1Z.JDSMTADSZDC1SU,1Z,JDSMTEMP3*CTA0TAFCIAFS,LMC0MD| 


SUBROUTINE  TADPAR 

c 

C  TADPAR  SIMULATES  ACQUISITION  OF  TARGETS  TO  THE  REAR  OF  THE  ACTIVE 
C  BATTLE  AREA  BY  ARMY-AIR  AND  AIR  FORCE  SENSORS 

C  CALLED  BY  TARACQ 

C«0«00C0«oe*o««0«o«e00oeee«o0  0  00  •0  0*  •#••••#•  •O00  0000000000000900*, 

C 


JClDOl 

JCIDDI 

JCIODI 

JClOOl 

JCIOOX 

JClDOl 

JCIDDI 

JCIOOl 

JCIDDI 

JCIODI 

JClDOl 

JCIDDI 

JCIODI 

JCIDDI 


JCIOOl 


JClDOl 
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KtAL  NSUrU.Nt^UUr,lNlUA,INTUC.IN7l)5 
COMMON/888/ 

CDHMUN/TNFSCI/  1 NA8F ( 8 » 2 ) . 1 NA 8R (8  « 2 1 , INAeZl21  I  JC 1 001 

C0MM0N/TNF5C2/NC3SD«2I ,XC35D(8,2) , VC350(8,2) r  I  JClOOl 

»  FDD5AD(8,2),F505AD(8 ,2 ) , FT05A D C8 ,2 1 «  1  JClOOl 

»  FA8DCC(?)  ,A8  5FCC(8v2}vABSRCC(e,21fA8CZCCC2)«  1  JClOOl 

«  F55MCC(2) ,T55M1R(8 ,2l,55SMIM(8f2l f555MlL(8f2) t  1  JClOOl 

»  FSAMCC  «2 1 ,TSAM1R (3,21, ISAM  1 2(21 .ii AM  IF (3, 21  1  JC 1001 

C0«H0N/TNF5C3/NC3DD(21 , XC30D(8 ,2) , YC3DD18,2) t  1  JClOOl 

•  NCUMD(21 ,XC0MD(8  ,2l vYC0MD(8,2) t  1  JClOOl 

•  FCLWL(10,2)  1  JClOOl 

C0KH0N/TNF5C<i/NFDLY(2l  ,  X  EDI  Y  (  8  ,2  1  t  YEDL  Y  (8  1 2 , 2  )  ,  1  JClOOl 

•  JE5L( 0,3,2), tWAUT(B,21  ,lFPL5(e,2},  1  JClOOl 

•  TEQPD(21 ,5EQPD(B,2) ,CT1ME(8,2)  1  JClOOl 

COMKCN/TNF5C5/NOSFO (2) , XGSFD ( 8 ,2 1 , YC5F0 ( 8 ,2 1 ,  1  JClOOl 

»  NAAFD(2) ,XAAFD(8,2) ,YAAFD(8,2I,  )  JClOOl 

«  NAFFD(2) ,XAFFD(8 ,2), YAFFD(8,21  1  JClOOl 

C0MM0N/L0CAL3/  J5 
C 

C  THESE  ARE  WORKING  VARIABLES  TARGET  ACQUISTION  NEEOS  ONLY. 

COMMON  /TACO/  V 1  ST  W Z  ( <V0 , 1 1  )  , CE  1 T  W2  (40 , 1 1 )  iR VLOST  (  6 )  , 

1  1WZBA(112),  KTERTA(112) 

C  TARGET  ACQUISITION  DEEP  AREA  DETECTION  ROUTINE. 

01  MENS  ION  POAASSC'^  ,71 ,  PD  AF  SS  (4 ,7  1 ,  AS  lOE  ( 2 ) 

DATA  AS10E/»8LUE  »,»REO  */  !  JOOOl 

IF(1UTAM»E0.U  GO  TO  20 
C 

ClOO)  OETECTION  PROBABILITY,  SENSOR  ERROR  AND  OELAY  TIME  ARE  USER  INPUT 
C  (TARGET  ACQUISITION  MOOEL  NOT  USEO) 


DO  15  L>1,2 

N1>^NSU(L1 

)=NZ(L) 

DO  10  1SU-1,N1 
PSRADS(lSU,Ll  =  PSZD(lSUf 1  ,L) 
TAESRA(  ISU.D^TASESZd  ,L) 
TADSRA(  ISU  ,L  MTADTSZd  fL  1 
ID  CONTINUE 
15  CONTINUE 
RETURN 


C200T  INITIALIZE  WORKING  VARIABLES 

C - 

20  FNNSCd. 

INO’JNUC 

)F(1PRS.NE  .OIWRITEdNQtlOOnCYCLE,  JS 
00  80  L*1 »2 


I  JClOOl 
I  JClOOl 


c 

c 

1F(RACAM(JS,3,L) .Lr..ODOl)  GO  TO  65 
C  RACP  NO.  RECON  A/C  ON  DEEP  SEARCH 

RACP^RACAM  (JS,3,L)«d  .-RAAFRM(3,L)  «FRLPMAC3.Ln»SRRAC  CD/FNNSC 
00  60  1AFS«1,N4 

TEMPleRACP^PRAFSMd  AFS  ,3,L)/MDIV0 
IF(TEMPl.LE--OOOl)  CO  TO  60 
DO.  5D  I  SU<:  I  ,N3 

TEMPsSWATDSdAFS,ISU,LI«VELRAC(L  I  •TAF  SSD  d  AFS  .L  ) /OAR  EA 
PASOT*I .-EXP (-TEMP) 

TEMP2={1 .-PAS0T)»»TEMP1 
PDAFSS( lAFS, ISU) =1 .-TEMP2 
PSRADSdSU,Kl  =  PSRADS(ISU,Kl*TEMP2 
50  CONTINUE 
60  CONTINUE 
65  CONTINUE 
C 

c 

C  summarize  and  normalize  results  in  same  FASHION  AS  IN  TARACA 
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CCCO=5tOPD(J5,LI  f 

CALL  CVFW(NAAFD(L) f XAAFOCl ,L ) t YA AFD ( 1 »L I *CCC0 »C0M0AA }  I 

NR1«1  I 

NIL2»N'R(1  }  I 

IF(L.EQ.1ICQ70  8D9  ) 

NR1=NR(1  Ml  I 

NR2=NR(1  MNR(2)  I 

809  DO  BIO  IRR-NRlfNR2  1 

1F(J5.GC.NH5R(  IRRDGOTQ  811  X 

810  CONTINUE  I 

IRRcl  I 

811  NRMNLSRdRR)  I 

NR?>=NH5R  (I  RR)  1 

CCCD^D.  I 

DO  812  IRR*^NRltNR2  ) 

812  CCCD^CCCD^SEQPOC IRRtL)  1 

CCCD=CCCD/ CNR2-NR1*! )  I 

CALL  CVFKlNAFFOtDtXAFFOdfD.YAFFOCl.D.CCCO.COMOAFI  I 


DO  7D  I5U-ltN3 
TSENSR^D. 

DO  66  IAS‘lfN2 

T5ENiR=75EN5RtP0AAS5I)A$,X5U) 

66  CONTINUE 

DU  67  IAfS»l,N4 

T5EN5k=T5ENSR*P0AF55C)AF5» I5U) 

67  CONTINUE 

00  68  JAS=)fN2 

IFETSENSR.EO.O.lf  GO  TO  68 

PDAA55(IA5,I5UJ=PDAA55(1A5,15UI/TSENSR 

TAESRAdSU  tK)  =  TAE5RA(15UtK}«(PDAA55(IA5*lSUl«5FAA0A(IA5»in*«2« 
TADSRA(I5UtK)=TA0SRA(ISU»K}«P0AAS5CXA5tISU}*ITA0TA5( IAS»L)«CQHOAA) 

68  CONTINUE 

DO  69  IAF5^1tN4 

IF(T5ENSR.E0.0.)  GO  TO  69 

PDAFiSd  AT  St  lSU)^P0AFSSdAF5tI5U)/TSENSR 

TAESRAdSUtKJOAESRAdSUtKI^CPDAFSSf  IAF5,)SU)*5EAF0Ad  ArStL))*^?. 
TAOSRAI  ISU,K..)>TA0SRAd5UtK}«P0AF5SdAF5»)5U)»(TA0TAF(  )AFS»L)« 

•  CUMDAFJ  I 

69  CONTINUE 


JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClDOl 

JCIDOl 

JClOOl 

JClOOl 

JClOOl 

JCIODI 

JClOOl 

JClOOl 

JCIDOl 

JCIDOl 

JClOOl 

JClOOl 


JOOOl 


A-5.  INPUT  AND  MAIN  CONTROL 


This  section  ccxnpletely  lists  subroutine  TWAIN/  which  controls  the 
overall  flow  of  the  TACWAR  combat  simulation,  and  subroutine  TNFINP, 
which  controls  the  C^/D  input  data  to  TACWAR. 


SUBROUTINE  TMA  IN 
C 

C  TMAIN  SETS  UP  A  CYCLE  COUNTER  WHICH  CONTROLS  INTERMITTANT  HOOEL 

C  FUNCTIONS.  TMAIN  ACTIVATES  A  I R tNU CL  EAR ,CHEH ICAL ,T ARCET  ACOUISITQN 

C  GROUND, SUPPLIES  AND  THEATER  CONTROL  MODELS. 

C  called  by  NMAIN.  CALLS  KSREAO  AND  APORTN. 

C 

DIMENSION  ARSTfS) 

DATA  ARST/AHSTRE,4HNTST,4HRENT,4HiTRE»4HNT  / 

'  COMMON  /RSTRT/  NRSTRTO) 

REAL  NSUTDtNTSUOTtINTDAtINTOEtINTOS 

COMMDN/BBB/ 

aaeaaaaaaaaaaaaaaaoaaaaa^aaaaaaaaa  aoooo^aaooaaooaa  #ooa0aao«99oooa«o99a«o«eooo9o9 


62 


nnoonn  onooo  r»  n  r»  m  m  i»>  r»  r»  r» 


APPENDIX  A 


C0HH0N/TNFSC2/NC3S0(2) .XCBSO (8 ,2 ) , YC350C 8 ,2 ) , 

«  F00SftD(B,2)»FSDSA0(B,2)»FTDSA0C8>2) 9 

•  FABDCC(2) ,ABSFCC(e  92 ) . A&SRCCC 8 ,21 . AOCZCC C2  ) * 

•  FS5HCC(2),TS5H)R(892)95S5H)HIB,2)»555HlLCB92)f 

•  FSAHCC(2)  ,TSAHIR(3,2)r'tSAH)ZI2)  f5SAHXFC392) 
COHHON/TNF5C3/NC30D(2),XC300IB92)»YC3DOCB.2) . 

•  NCOMO(2),XCOHO(B,2)»YCOHO(B,2)9 

•  FCLML 110,2) 

C 

REAL98  NAHES(I6)9QNAHE 

INTEGER  XPR)NT  116),  ICHNUC(2,2)  ,  X  ZZ 1,  UZ2 ,  :ZZ3 

OAT A  NAHES/*QAPORT  •,'QPSAIR  »,*CPSUMY  •,*QAIRM0  •,*QCHEM 

•  *  QNUC  *, 'QTARAQ  », ’OCND  *, •0A)RC0  »,*QTC 

•  »0SUPLY  *9  ’QTIHET  S'QMRRST  »,  •QTMFIN  »,»OOSOEG 

•  •QNUCCO  V 

DATA  XPRXNT/16*?/,  ICHNUC/4*?/ 

100  F0RHATI10X920I3) 

101  F0RHATIA8,2X93III,4XXI 


)  JCXOOI 
X  JCIOOl 
X  JCIOOl 
X  JCIOOl 
X  JCIOOl 
I  JOOOl 
X  JCXOOl 
1  JOOOl 

1  JCXOOl 
1  JCXOOl 
»,I  JOOOl 
*,X  JCIOOl 
•f)  JCXOOl 
X  JCIOOl 
)  JCIOOl 
X  JCIOOl 
1  JCIOOl 


10)  INITIALIZATION 


XRST-17 

H0T»JC0N 

REA0C59l00  9EN0>=25)NCYCLE9NN5C 

REAOC59lO09EN0*25)XPR00 

REAOC59l009END=25)C ) PRSO C ) ) , X « 1 t20 T 

REAOCS.XOO.END^ZSIIOHU 

REAOI59IOI 9EN0*25}QNAHE9 IZZI9XZZ29XZZ3 

00  22  )el9lG 

)F(ONAHE.NE.NAHESC)))GOTO  22 
XPR)NTn)«IZZX 

IF (QNAHE.NE.NAHE5I5) •AN0.QNAHE.NE.NAHESC6) )GOTO  21 

XCKNUCnfX^)<^lZZ2 

)CHNUCI29)-4X«IZZ3 

GOTO  21 

CONTINUE 

JC0N*IPRINTC14) 

CALL  TNF)NP 

25  CONTINUE 


1  JCIOOl 
X  JCIOOl 
X  JCXOOl 
X  JCXOOl 
I  JCIOOl 
)  JCIOOl 
I  JOOOl 
X  JOOOl 
1  JCIOOl 
X  JCIOOl 
1  JCIOOl 
I  JCIOOl 
)  JCIOOl 
)  JCIOOl 
)  JCIOOl 
)  JCIOOl 
1  JCXOOl 


ALLOCATE  NOTIONAL  AIRBASE  TO  REAL  AIRBASES  UNLESS  THIS  IS  A 
RESTART  RUN. 


XFINRSTRTCD.GT.I)  GO  TO  10 

JC0N>)PRXNTI1)  1  JCXOOl 

CALL  APORTNCl) 

10  CONTINUE 


PRINT  tables  FOR  CYCLE  PRECEEOXNG  START  OF  GAME. 


ICYCLE^O 

XFCNRSTRT(l) .GT.l)  ICYCLE=NRSTRTI3 )•2-l 

JSUN«XPRXNT(2)  I  JCXOOl 

CALL  PSAIR 

JSUH»XPR)NTC3)  1  JOOOl 

CALL  PSUHHY 


SET  GAME  CYCLE  COUNTER.  INITIALIZE  MAJOR  SUPPLY  CYCLE 

COUNTER  TO  NCSH  •  NO.  COMBAT  CYCLES  )N  A  MAJOR  SUPPLY  CYCLE. 
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11  IIFLAC  «  D 

IF(NR5TRTtn.GT.lI  GC  TO  900 
GO  lU  901 
933  IIFLAG  *  1 

ICYCLE  =  NRSTRTO)  ♦  2 
G3  TO  902 

901  ICYCLE  =  1 

902  CONTINUE 
ICSM=NC5M 

IFCNCSH.LE  .01  00  TO  904 

903  IFCICSM.GE. ICYCLE)  GO  TO  904 
IC5M  =  IC5W  ♦  NC5M 

CO  TQ  903 
CONTINUE 
C 

C - 

C  231  EXECUTE  AIR  MODEL 

C  STATEMENT  1000  IS  THE  STARTING  POINT  FOR  CALCULATIONS  EACH  CYCLE- 

C  BEGIN  BY  SETTING  PRINT  FLAG  IPRD^l  (PRINT)  IF  CYCLE  IN  ARRAY  IPROO 

C - 

C 

)F  INKSTRT (?) .60.1 .AND.I IFLAG.EO.I  )  GO  TO  1013 
lOOO  00  1010  11*1,3 

IFdCYCLE.EO.IPROOlIDJ  00  TO  1015 
IFdCYCLE.LT.IPROOdI))  GO  TO  1020 
1010  CONTINUE 
00  TU  1020 
1015  IPRO*I 

GO  TO  1025 
1020  IPR0=0 
1025  CONTINUE 

IFflOMU.EO.T)  CO  TO  1021 

JC0N*IPRINT(4)  I  JOOOl 

CALL  AIRMOO 


C 

c - - - 

C  30)  EXECUTE  NUCLEAR  AND  CHEMICAL  MODELS 

C - 

C 

C - 

C  ARE  NUCLEAR  ANO  CHEMICAL  WEAPONS  CONSIOEREO  7 

C - 

c 

IF(ICMU.EQ.5)  GO  TO  700 

C - 

C  ALLOCATE  NOTIONAL  AIRBASES  TO  REAL  AIRBASES 

C - 

C 

JC0N*IPRINT(1I  I  JClOOl 

CALL  APORTNd) 

1021  CONTINUE 
C 

C - - 

C  FOR  NNSC  SUBCYLES 

C  SET  FLAG  ANO  CALL  NUC  ANO  CHEM  FOR  DETERMINING  ESCALATION 

C  STATE  AND  CHEMICAL  EMPLOYMENT  LEVEL 

C - 

c 

NITC«=3 

KNUCH=D 

C 

C - 

C  SET  IPR5  FOR  SUMMARY  OUTPUT 

C - 

c 

IPRS=D 

DO  1  11>I,3D 

iFdCYCLE.EQ.lPRSDdlll  CO  TO  2 
IF  (ICYCLE. LT.IPRSDdDl  CO  TO  3 
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1  CONTINUt 
CO  TO  3 

2  IPRS*1 

3  IFCICYCLE.EQ.l.QR.lCYCLE.EQ.NCYCLE)  IPR5»1 
IF  Cl  IFLAG.EO.il  IPRS  »  1 

C 

C - 

C  BEGIN  CALCULATIONS  FOR  EACH  SUBCYCLE  INCYL 

C - 

c 

DO  600  INCYL =1 ,NN5C 


IF  NO  CHEH  OR  NUC  WEAPONS  USEO  AFTER  FIRST  SUBCYCLE .LEAVE  OO-LOOP. 


IFdNCYL.GT.l.ANU.KNUCH.FQ.OI  CO  TO  700 

C  JCIOOl 

KFLAGd 

RISS*0 

I  JCIOOl 

JC0N>^lPRINTd61 

1  JCIOOl 

CALL  NUCCCO 

I  JCIOOL 

I  JCIOOl 

JC0N=lPRINTd5) 

1  JCIOOl 

CALL  OSOEG 

I  JCIOOl 

IF  CHEH  WEAPONS  ARE  TO  BE  PLAYEO  CHEH  OETERHINES  CHEHICAL 
EHPLOYHENT  LEVEL  ANO  INITIALIZES  CHEHICAL  MODEL 


1F(IOHU.EQ.3.0R.IOHU.EO.SI  GO  TO  12 

JCHEM=^IPRINT(5)  1  JClOOl 

CALL  CHEH 

KFLAG*1 

KISS^O 


IF  NUC  WEAPONS  ARE  TO  BE  PLAYEO  NUC  OETERHINES  ESCALATION 
STATE  AND  INITIALIZES  NUCLEAR  HOOEL 


12  IF  (IOHU.EQ.4.0R.IOMU.EQ.51  GO  TO  13 

JNUC=  IPRINTC6I  I  JCIOOl 

CALL  NUC 

13  KFLAG  =  0 


BEGIN  NUC  and  CHEH  CALCULATIONS  FOR  EACH  SECTOR  KISS  *  IS. 


00  500  1S«1»NS 
KISSMS 


OETERHINE  IF  THIS  SECTOR  HAS  A  POSITIVE  ESCALATION  STATE 


00  310  L*1 »2 
00  310  1TC=1,NITC 
IFdESCClS.lTC.LKCT.Ol  GO  TO  320 
310  CONTINUE 


NO  USE  OF  NUCLEAR  WEAPONS  IN  THIS  SECTOR 


KNUC«0 
CO  TO  350 
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NUCLIAR  WEAPON  ARE  TU  BE  USED 

KNUCH  tNQICATES  NUCLEAR  OR  CHEKICAl  WEAPON  USE 


3?0  KNUCO 

KNUCH*KNUCH4l 


DETERMINE  IF  THIS  SECTOR  HAS  A  POSITIVE  EMPLOYMENT  LEVEL 


350  CONTINUE 

00  360  L«l»2 

00  360  ITC«1,NITC 
iFtlEMLtlSflTC^LKST.O)  GO  TO  370 
360  CONTINUE 


NO  USE  OF  CHEMICAL  WEAPONS  IN  THIS  SECTOR 


KCHEM*0 
00  TO  400 


CHEMICAL  WEAPONS  ARE  TO  BE  USED 


370  KCHEM=I 

KNUCH=KNUCH«I 


IF  THE  ESCALATION  STATE  OR  THE  EMPLOYMENT  LEVEL  WAS  POSITIVE 
CONOUCT  TARGET  ACQUISITION  IF  NOT  GO  TO  NEXT  SECTOR 


400  CONTINUE 

IF( INCYL.GT.II  CO  TO  405 

KIPRD*IPRD  C  JCIOOl 

(Cl  IPRD»0 


TARACQ  PERFORMS  TARGET  ACQUISITION  CALCULATIONS 


JNUC*IPRINT(7I  I  JCIOOl 

CALL  TARACQ 
*  IPRD«KIPRD 


DETERMINE  ORDER  OF  USE  OF  WEAPONS 


405  CONTINUE 

IFCKNUC.EQ.O.  AND.  KCHEM.EQ.OI  GO  TO  500 

IF ( IOKU.EQ.1.0R.IOMU.E0.3.OR.I0KU.GE.6)  GO  TO  410 

GO  TU  460 


NUCLEAR  WEAPONS  ARE  USED  FIRST  IF  ALLOWED 


410  CONTINUE 

IFCKNUC.EQ.O)  GO  TO  420 
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NUC  PERFCJRKS  NUCtEftR  DAMAGE  CALCULATIONS  IN  SECTOR  KISS 


JNUC>^1CHNUC(2»2)  I  JCIOOl 

CALL  NUC 


ARE  CHEMICAL  WEAPONS  USED  IN  ADDITION  TO  NUCLEAR  WEAPONS  ? 


A20  CONTINUE 

iFdOHU.EO.B)  CO  TO  SOD 
IFIKCHEM.EO.OI  CO  TO  500 


CHEH  PERFORMS  CHEMICAL  OAHACC  CALCULATIONS  IN  SECTOR  KISS 


JCHEM-ICHNUC(Ifl)  I  JCIOOl 

CALL  CHEH 
CO  TO  500 


CHEMICAL  WEAPONS  ARE  USED  FIRST  IF  ALLOWED 


460  CONTINUE 

IFCKCHEH.EO.OI  CO  TO  470 


ADDITIONAL  CHEMICAL  DAMAGE  CALCULATIONS  BY  CHEH 


JCHEH>ICHNUC(2  *1 1 
CALL  CHEH 


1  JCIOOl 


ARE  NUCLEAR  WEAPONS  USED  IN  ADDITION  TO  CHEMICAL  WEAPONS  ? 


470  CONTINUE 

lF(]0MU.Ea.4)  CO  TO  500 
IF(KNUC.EO.O)  CO  TO  500 


ADDITIONAL  NUCLEAR  DAMAGE  CALCULATIONS  BY  NUC 


JNUC*ICHNUC(I»2I  I  JCIOOl 

CALL  NUC 


END  OF  OO-LOOP  ON  SECTOR  IS  *  KISS 


500  CONTINUE 


END  OF  OO-LOOP  ON  SUBCYCLE  INCYL 


I  JCIOOl 

600  CONTINUE 


NUCLEAR  AND  CHEMICAL  DAMAGE  CALCS.  FINISHED  FOR  THIS  CYCLE 
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c 

KF (I0MU.E0.7)  CO  13  1022 
C 

c - 

C  ALLOCATE  REAL  AIRBASES  TO  NOTIONAL  AIRBASES 

C - 

c 

3CDN*=IPRINTll)  I  JCIOOl 

CALL  AP0RTNC2) 

1022  CONTINUE 
700  CONTINUE 


40)  EXECUTE  REMAINING  PARTS  OF  TACWAR  MODEL  FDR  THIS  CYCLE 


GROUND  PERFORMS  GROUND  COMBAT  CALCULATIONS 


IFCIOMU.GE.b)  GO  TO  1041 

JCON’IPRINKB)  I  JCIOOl 

CALL  GROUND 


AIRGRO  PERFORMS  AIR*GR0UND  CALCULATIONS 


JC0N=IPRINT{9)  I  JCIOOl 

CALL  AIRCRD 
1041  CONTINUE 

IF  (IIFLAG.EO.II  go  TO  1026 

IF(1CYCLE,EQ-I.0R-ICYCLE.EQ.NCYCLE)  CO  TO  1026 
IFCIPRD.EQ.I  IGO  TO  1026 
DO  1027  II=l»30 

iFdLYCLE.EO^IPRSadl))  GO  TO  1026 
IFdCYCLE.LT-lPRSOdlM  GO  TO  1028 
1027  CONTINUE 

GO  TO  1028 
1026  CONTINUE 

IFtI0KU.E0.7l  GO  TO  1028 


PSAIR  PRINTS  AIR-GROUNO  SUMMARY,  AS  RECUIREO 


JSUM>^IPRINT(2)  I  JCIOOl 

CALL  PSAIR 
1028  CONTINUE 


.IF  ICYCLE  NOT  LAST  CYCLE  IN  GAME,  SET  FLAGS  FOR  CALLS  TO  NUC  AND 
CHEH  TO  CALCULATE  NUCLEAR  ESCALATION  STATE  ANO  CHEM  EHPLYMT  LEVEL 


KFLAG*2 
Kl SS=0 
INCYL*0 


NUC  DETERMINES  NUCLEAR  ESCALATION  STATE  IF  NUC  WEAPONS  ARE  PLAYED 


iFdOMU.EO.^.OR.IOMU.EO.S)  CO  TO  14 

JCHEM*ICHNUCt2,l)  1  JCIOOl 

CALL  CHEM 


CHEH  OETERMINES  CHEMICAL  EMPLOYMENT  LEVEL  IF  CHEM  WEAPONS  PLAYED. 
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14  IF(IOr.U.EQ.4.0R.IOHU.EG.5)  GO  TO  15 
JNUC* 1CHNUC(2, 2) 

CALL  NUC 

15  KFLAC  =  0 

(FKOMU.GE  .6)  GO’  TO  1090 
C 

C - - 

C  TC  PERFORMS  THEATER  CONTROL  AND  BOCRKEEP(NG  CALCULATIONS 

C - - 

C 

JCON:^1PRINT(10) 

CALL  TC 

IF (  ICYCLE.NE .(CSHC  GO  TO  1030 
C 

C - 

C  FOR  MAJOR  RESUPPLY  CYCLE#  SUBROUTINE  SUPPLY  HAKES  SUPPLY 

C  MOOEL  CALCULATIONS 

C - 

c 

JC0N=(PR1NT(I1 ) 

CALL  SUPPLY 
C 

c - 

C  INCREMENT  NEXT  MAJOR  RESUPPLY  CYCLE 

C - - - 

c 

ICSM»ICSM^NCSM 

1030  IF  (ICYCLE  .NE..2<»1&0I  GO  TO  16 
C 

C-- - 

C  TIMET  REAOS  INPUTS  IF  TIME-T  VABIABLES  ARE  TO  BE  INPUT  THIS  CYCLE 

C - 

c 

JC0N='IPRINT(12I 
CALL  TIMET 

16  (F(((FLAC.EQ.II  GO  TO  1040 

IF  I (CYCLE.EQ.I  .DR.ICYCLE .EQ.NCYCLE I  GO  TO  1040 
IF  KPRD.EO.ll  GO  TO  1040 
00  1035  II  =^1  r30 

(FdCYCLE.EO.IPRSOmil  GO  TO  1040 
IF((CYCLE.LT.(PRS0(I1II  GO  TO  1090 
1035  CONTINUE 

GO  TO  1090 
1040  CONTINUE 
C 

C - - 

C  PSUMKY  PRINTS  SUMMARY  TABLES  FOR  GROUMO  ANO  THEATER 
C  control  VARIABLES 

C - - - - 

c 

JSUM-IPRINTI3I 
CALL  PSUMHY 
IIFLAG  »  0 
C 

C - - 

C  CHECK  TO  determine  IF' THIS  TACWAR  RUN  HILL  CREATE 
C  RESTART  FILE.  IF  SO.  COPY  BLANK  COMMON  FOR  EACH 

C  COMBAT  DAY  TO  THE  OUTPUT  RESTART  FILE.  ClRST  *  171 

C - - 

c 

1090  1FINRSTRTC1I.EQ.1.0R.NRSTRTC1I.EQ.3)  GO  TO  1050 
CO  TO  1055 

1050  IF  IMODIICYCLE#2I.EQ.OI  GO  TO  1055 
NOAY  =  IICYCLE  ♦  II  /  2 

WRITE  IIRST.IOSII  ARST,  NOAY 

1051  F0RMATI1X,AI8,I4I 

JC0N>IPRINTI13I  1 

CALL  NRRST  IIRSTI 
1055  CONTINUE 
C 


I  JCIOOl 


JCIOOl 


JCIOOX 


JCIOOl 


JCIOOl 


JCIOOl 
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C - 

C  END  OF  CALCULATIONS  FOR  THIS  CYCLE,  STOP  IF  LAST  (NCYCLE)  CYCLE; 

C  otherwise,  increment  ICYCLE  ANO  BEGIN  CALCULATIONS  FOR  NEW  CYCLE. 

C - 

c 

IF  ( ICYCLE.CE. NCYCLE)  CO  TO  1099 

ICYCLE*ICYCLE+1 

GO  TO  1000 

c 

C 

1099  lF(NRSTRT(l).EQ.1.0R.NRSTRT(n.£Q.3)  REWIND  IRST 
RETURN 
ENO 


SUBROUTINE  TNF  INP 

TNFINP  READS  IN  DATA  ASSOCIATED  WITH  CCC  DEGRADATION  OF  NUCLEAR 
RE  SnURC t  s 


1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 


REAL  NSUTD,NTSUDT,INT0A,1NTDE,INTDS  I  JCIOOl 
•ooooooooooo««oooo«o«*oo*oooooo«ooo*o««ooooo«ooooo«e«o««o«oo«#oo«**«o*«ooo 
C0KH0N/BB8/ 


100 

101 

102 

103 

lOA 

105 


0000«0000«00«0000««000«0 0000000000 00 0*000000 0*00 0000000009«#00««00«000«00# 


C0HM0N/TNFSC1/INA8F(B,2)  ,  I NABR (8 ,2 ) , I  NAB  1(2 1 

I 

JCIOOl 

CCMMON/TNFSC2/NC350(2) ,XC3S0(8 ,2), YC3S0(8,2) , 

1 

JCIOOl 

»  F00SA0(8,2),FS0SA0(8 ,2 ) , FTOSAO ( 8 ,2 ) , 

JCIOOl 

»  FA80CC(2} ,ABSFCC(8,2),A65RCC(8,2),ABCZCC(2I, 

I 

JCIOOl 

»  FSSMCC(2I ,TSSMIR(8 ,2 1 , SSSH IM( 6 ,2 1 • SSSM I L (8 .a). 

I 

JCIOOl 

»  FSAMCC (21 ,TSAHIR(3,2  1,TSAMIZ(21  ,SSAKIF(3,21 

I 

JCIOOl 

COMMON/TNFSC3/NC3DD(21 ,XC3C0(8 ,21 , YC300(8 ,21 , 

I 

JCIOOl 

NC0M0(21 ,XC0M0(8 ,2 ) , YCOMO 1 8 ,2 1 # 

I 

JCIOOl 

FCLWL(10,21 

I 

JCIOOl 

C0MM0N/TNFSCA/NEDLY(21 ,XE0LY(8 ,21 ,YE0LY(8,2,2) , 

I 

JCIOOl 

JESC(8,3,21,IWAUT(8,2),IFPLS(8,2), 

1 

JCIOOl 

TE0P[)(2}  •SE0P0(8,2),CTIHeC8,2) 

I 

JCIOOl 

COMMON/TNF5C5/NGSFD(21 ,XGSF0(8 ,2) , YGSf 0(8 ,21 , 

I 

JCIOOl 

NAAF0(21,XAAF0(8,2}, YAAF0(6,2) t 

I 

JCIOOl 

NAFF[)(21,XAFF0(8,2},YAFF0(8,21 

I 

JCIOOl 

REALMS  APARHOIl 

I 

JCIOOl 

OATA  APARM/»NC300  ',*XC300  *,*YC300  •.•NCUHO 

»,»XCOMO  • 

M 

JCIOOl 

•YCUKO  *, 'FCLWL  * ,*NC3S0  ■,'XC350 

"."YC350 

M 

JCIOOl 

•FAliOCC  •,  'F5SHCC  •*.' FSAMCC  ",  "T5SHIR 

•,"5SSHIK 

M 

JCIOOl 

'5SSMIL  *, "T SAMIR  "t'TSAMIZ  "."SSAMIF 

•,"NEOLY 

M 

JCIOOl 

"XEOLY  ", *YEOLY  •,"NGSFO  ",  "XGSFO 

•••YGSFO 

JCIOOl 

•NAAFO  ", "XAAFD  » , "YAAFO  " , "NAFFO 

","XAFFO 

•tl 

JCIOOl 

"YAFFO  »/ 

I 

JCIOOl 

DIMENSION  ASIOECai 

1 

JCIOOl 

OATA  AS1DE/*8LUE *, *RED  »/ 

I 

JCIOOl 

FaRMAT(10X,20I 31 

I 

JCIOOl 

F0RMAT(1X,A6,I0(3X, lAll 

I 

JCIOOl 

FQRMAT(1DX,IDF6.01 

I 

JCIOOl 

FORMAT(lX,A6,IO(3X,F8.3n 

I 

JCIOOl 

FORMATC'O  INITIAL  TNFS  VALUES  FOR  "tAA,"  SIDE*) 

I 

JCIOOl 

FDRMATCIX,  "NORMALIIED  VALUES  FOR  FCLWL*) 

I 

JCIOOl 

MOT=JCON 

I 

JCIOOl 

00  30  L=l,2 

I 

JCIOOl 

REA0(5, 100  I 

I 

JCIOOl 

WRITEIMOT, 1041 ASIOE(L) 

I 

JCIOOl 

REAO(5,lO0,ENO«^2S,ERR>28)NC3OO(L) 

I 

JCIOOl 

WRITE(HOT,  10nAPARM(l),NC300(L) 

1 

JCIOOl 

NN=UC3D0(L) 

I 

JCIOOl 

REAO(5,102,EN0^25,ERR<28)(XC300(I,L1,I*1,NN) 

I 

JCIOOl 

WRITE  (H0T,I03) APARM(2) ,(XC300( I.L) tl-l.NN) 

I 

JCIOOl 

REA0(5,102,EN0-25,ERR«28 )(YC300(I,L) tI*l,NN) 

I 

JCIOOl 

WRITE  (HOT,  1031  AP ARM  (3)  ,(YC300(  IvL)  ,I>^1,NN) 

I 

JCIOOl 

READ(5,100,EN0*25,ERR=28 )NCOMO(L) 

1 

JCIOOl 

WRITEtMOT, lOllAPARMCAI ,NCOHO(L) 

1 

JCIOOl 

NNsNCOHO(L ) 

I 

JCIOOl 
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REAO«5,102 ,£MO=25,ERR*2B(IXCOMO( I,L) »I*ltNN(  I  JCIOOl 

WRITE (MOT, 10  3) APARM(5) , ( XCOMO  I  I  * L )  ,  I » 1 ,NN )  I  JCIOOl 

RE  AO  I  5,102  ,EN0=25tEKR  =  26)( YCOMOt  r,L(,I«l,NM)  I  JCIOOl 

WRITE (HOT, 103(APAR^(b) , (YCOMOl I,L)  ,I«lfNNI  I  JCIOOl 

NN^NWIL)  I  JCIOOl 


REAO(5,l02,EN0*25,ERR*28(tFCLWtf I,LJ»I-1,NN) 

'  WRITEIK0T,103I APARM(7),«FCLWL(I,L) ,1»1,NN) 
REA0(5,100rEN0*25,ERR»2B )NC3501L) 

WRITE  (HOT,  101 ) APARHCe) ,NC3  50(L ) 

NN=NC3S0(L  ) 

REAO(5,102,ENO=25,ERR-26)(XC35O(I ,L) ,I»1,NN) 

WRITE  IM0T,103) APARM19> ,IXC3S0( I,L) ,1«1,NN) 

REA015, 102  ,EN0  =  25,ERR  =  26) ( YC350(  1,1) ,1-1  ,NN 1 
WRITE (HOT, 103 )AP ARM (10( , (YC350 ( I ,L ( , 1>1 ,NN) 

RE  AO  1 5, 1 00, E  NO  <^2  5,  ERR  =  2  8  )NEOLY  (L) 

WRITE (HOT, 101) AP ARM (201 ,NEOLY(L) 

NN=NEOLYtL ) 

REA0t5,102,EN0*25,ERR=2B)(XE0LY( I,L) ,I*1,NN) 

WRITE  IH0T,103)  APAR>^  121  )  ,  (XEOLY( )  ,L)  ,1-1  ,NN) 

00  10  J«l,2 

REAO(5,102,EMO=25,ERR^28)lYtOLY( l,J,Ll,lsl,NKl 
WRITE (HOT, 103) APARH (22) , (Y EOLY ( I , J  ,L 1 , 1 «1 ,NN > 

10  CONTINUE 

REAO(5,100  ,EN0=2  5.ERR«2B)NGSF0{L ) 

WRITE  (HOT,  101) APARH(23I  ,NCSFO(L) 

NN*NC5F0tL I 

REA0(5,102  ,ENO  =  25,ERR  =  2B) tXCSFOt I ,L) ,1*1 ,NN1 
WRITE(M0T,103)APARH(24)  ,(XCSF0(1,L),U1,NNI 
REA0(5il02  ,ENO  =  25,ERR»2Bl(YC5FO( 1 ,L) ,l*l,NN) 

WRITE  (HOT,  103  I AP ARM  (25)  ,  (YCSFOd  ,L  ),1*1  ,NN) 

RE A0(5,100 ,ENO^25,ERR=2eiNG5F0(L 1 
WRITE (HOT,  101 )APARH (26) ,NAAFO(L) 

NN*NAAFO(L ) 

REA0t5,102  ,EN0=25,ERR  =  28ItXAAF0(I ,L1,I*1 ,NN) 

WRITE  (HOT,  103) APARH(27) , ( X A AFO 1 1 ,L ) , 1 *1 ,NN ) 

RE A0(5. 102 ,EN0^25.ERR  =  2e ) ( YAAFO( 1  ,L) ,1*1 ,NN) 

WR  )TE  (HOT,  10  3)APARH128)  ,  (YAAFOl  1 ,L ) ,1*1 ,NN) 

REA0(5, 100,END*25,ERR*2B)NAFF0(L) 

WRITE  (HOT , 101) APARH129) , NAFF 0(1) 

NN*NAFFO(L ) 

REA0(5,102  ,EN0*25,ERR*2e 1(XAFF0( I,L) ,1*1,NN) 

WRITE  (HOT,  103)  APARMOO)  ,  (XAFFOII  ,L),1*1,NN) 

'  RE A0t5,102 ,ENO=25,ERR*28 )t YAFFO( I ,L) ,I*1,NN1 
WRITE  (HtlT,103)  APARH(31  )  ,(YAFFOtI  ,L1,I*1,NN) 

REAO  (5,102  ,EN0  =  25,ERR  =  28 )FABOCC(L) 

VRITE(HOT,  103)APARH (11 ) ,FABOCC (L) 

RE  AO (5, 102 ,EN0=25,ERR*2B)FSSHCC(L) 

WRITE (HUT, 103) AP ARM (12) ,FSSHCC(L ) 

REAO(5,102 ,rND=25,ERR*28)FSAHCC(L» 

WRITE (HOT, 103) APARM(13) ,FSAMCC(L J 
00  GO  15  =  1  .N5 

IF (55H5RS( 15,1  ).CT.0.)T55HIR(IS,L) *55H5R5(I5,L) 
IF(55M5F5(  1,I5,L1.CT.0.)  555MIH(I5.L) *SSHSFS ( 1 , 1 S .L ) 
IF(5SH5F5(2,I5,L)»GT.0.)  555HIL ( I  5 , L ) *S5H5F5 ( 2 • 15 ,L ) 
AO  CONTINUE 

WRITE (MOT, I03)APARM(I4) ,(T55HIR( I5,L) ,IS*1,N5) 

WR  ME  (HUT,  103)  AP  ARM  (  15)  ,  (55  5H I  H(  I S  ,L  ) ,  1 5 « 1 ,  N5  ( 

WR(Tt (HUT, 103) AP ARM (lb ( ,  (5 55H I L ( I  5  ,1 } , 1 5*1 ,N 5  ) 
NRI*NR(L( 

DO  42  IR  »)  ,NRT 

IF(ALR5R(I ,)R,L(.GT.0.(T5AHIR(IR,L)*ALR5RCl,IRtL) 

IF (BHH5(1,  )K,L  ).GT»0.)55AHir (IR,L}«BHR5(1,IR,L) 

42  CUNIINUE 

IF(ALR5Z(I  ,L  ).GT.0.)T5AMIZ(L)  =  ALR5Z(1,L( 

WR ITE (HOT, 103) APARH(17) , (T  5AH ) R( IR ,1 )  •  IR *1 .NR T ) 


1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
J  JCIOOl 
r  JCIOOl 
r  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
r  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JC1001> 
1'  JCIOOl 
t  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl. 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
(  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


WRITE (HOT, 103(APARH(1B ) ,TSAHIZ(L(  I  JCIOOl 

WRITE (HOT , 1031 AP ARM (19) , (55 AH  I F( I R,L 1 , 1R*1 , NRT J  1  JCI 001 

NN*NWlL)  I  JCIOOl 

5UHH-0.  I  JCIOOl 

00  32  I  JCIOOl 

32  SUMH«5UHH^FCLWL( I,L1  I  JCIOOl 

IF(5UHM.LE .0.)GOT0  35  j  jClOOl 
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DO  3^  I>1»NN 

I  JCIDDI 

FCLWL II ,L) *FCLWL II ,LI/5UMM 

I  JCIDDI 

35 

WRITE(MDT,1D5) 

1  JClOOl 

WRITE(KDT,ID3I APARM(7I,(FCLWLtX,LI rl»l,NNI 

I  JCIODI 

3D 

CDNTINUE 

I  JCIOOI 

25 

CONTINUE 

I  JClDOl 

RETURN 

X  JCIODI 

2S 

WRlTEi6,999I 

I  JCIOOI 

999 

FORMAT! M » ERROR  OCCURRED  IN  SUBROUTINE  TNFIMP  ON  DATA 

•t 

I  JCIDDI 

« 

•  »READIN 

I  JCIOOI 

STOP 

r  jciDOl 

END 

I 

JCIODI 

BLCCKOATA 

I 

JClDOl 

C0MMUN/TNFSC2/NC3S0(21 ,XC3S0IB,2),YC3S0I8,2)  , 

I 

JCIOOI 

0 

FDDSAD(8»2ltFSDSAD(8  .2 1  ,FTDSA0 ( B »2 ) « 

I 

JCIODI 

FA8DCC(2),ABSFCC(8r2I»ABSRCC(8,2)9ABC2CCC2)* 

1 

JCIODI 

• 

FS5KCCI2I,TS5KIRI8,2),SSSMIM(B,2I,5SSM1L(B,2I, 
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